|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.12.2011, 21:00 | #1 |
Новичок
Джуниор
Регистрация: 20.02.2011
Сообщений: 1
|
Stringgrid выделение ячейки
Ох приветик ребята помогите сделать выделение ячеек найденных элементов, а то у меня только сейчас выделяется целая строка где найден элемент
ну срочно =3 пожалуйста (исправьте код) procedure TForm1.button16Click(Sender: TObject); var b:boolean; m,k,i:integer; gridr:tgridrect; maska:string; begin case rg1.ItemIndex of 0:begin b:=false; m:=0; maska:=trim(edt1.text); with stringgrid do begin I:=0; m:=0; repeat inc(i); if pos (maska,cells[2,i])=1 then begin b:=true; k:=i; inc(m); end; until (i=rowcount-1); end; gridr.left:=0; gridr.Top:=k-m+1; gridr.Right:=stringgrid.colcount-1; gridr.Bottom:=k; stringgrid.selection:=gridr; end; |
15.12.2011, 12:25 | #2 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,886
|
Код:
И используйте кнопку оформления кода # |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выделение в StringGrid | too lame | Компоненты Delphi | 3 | 17.12.2011 13:24 |
Выделение ячейки StringGrid | SwiP | Компоненты Delphi | 6 | 06.03.2011 23:00 |
Как убрать дефолтное выделение с первой ячейки StringGrid? | QuadroX | Помощь студентам | 2 | 19.05.2010 15:44 |
Выделение ячейки цветом - StringGrid. | Chudo4258 | Помощь студентам | 1 | 01.04.2009 07:03 |
Выделение в StringGrid | Лубышев | Помощь студентам | 2 | 08.06.2008 21:05 |