Автор: Simon

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

 

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

Ранние статьи

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить