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

procedure SetGridFocus(SGrid: TStringGrid; r, c:integer);
var
SRect: TGridRect;begin
with SGrid dobeginSetFocus; {Передаем фокус сетке}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]

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