|
Автор: Simon
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);
|
Это всегда срабатывает в случае, если никакая ячейка не выбрана или фокус
имеет другой элемент управления.
Надеюсь что помог вам.
|
Фокус ячейки TStringGrid