Фокус ячейки TStringGrid

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);

Это всегда срабатывает в случае, если никакая ячейка не выбрана или фокус имеет другой элемент управления.

Надеюсь что помог вам.

Simon [000657]

Содержание раздела