Delphi 1

Фокус ячейки 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;

Для вызова процедуры:

SetGridFocus(StringGrid1, 10, 2);

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

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

Simon [000657]