Фокус

Code:

Grid.Row := YourRowNumber;

Grid.TopRow := YourFirstVisibleRow;

Grid.LeftCol := YourFirstVisibleColumn;

 

 

Добавить комментарий
Подробности
Родительская категория: StringGrid
Категория: Фокус

Если вы создаете собственный обработчик компонента TStringGrid OnDrawCell, то вы можете нарисовать все, что вам заблагорассудится. Попробуйте, к примеру, это:

Подробнее: TStringGrid с фокусом... Добавить комментарий
Подробности
Родительская категория: StringGrid
Категория: Фокус

Автор: 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);

 

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

Добавить комментарий
Подробности
Родительская категория: StringGrid
Категория: Фокус