Фокус

SetFocus в TStringGrid

2017-08-11T19:33:59+07:00

Code:

Grid.Row := YourRowNumber;

Grid.TopRow := YourFirstVisibleRow;

Grid.LeftCol := YourFirstVisibleColumn;

TStringGrid с фокусом (OnDrawCell)

2017-08-11T19:35:09+07:00

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

Подробнее...

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

2017-08-11T19:34:36+07:00

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

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

SetGridFocus(StringGrid1, 10, 2);

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