Фокус

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