Фокус ячейки TStringGrid |
Previous Top Next |
Автор: Simon
Code: |
procedure SetGridFocus(SGrid: TStringGrid; r, c: integer); var SRect: TGridRect; begin with SGrid do begin SetFocus; {Передаем фокус сетке} Row := r; {Устанавливаем Row/Col} Col := c; SRect.Top := r; {Определяем выбранную область} SRect.Left := c; SRect.Bottom := r; SRect.Right := c; Selection := SRect; {Устанавливаем выбор} end; end;
//Для вызова процедуры:
SetGridFocus(StringGrid1, 10, 2); |
Это всегда срабатывает в случае, если никакая ячейка не выбрана или фокус имеет другой элемент управления.
©Drkb::01108
DelphiWorld 6.0