Фокус ячейки TStringGrid
Материал из DRKB
Фокус ячейки 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;
end;
// Для вызова процедуры:
SetGridFocus(StringGrid1, 10, 2);
Это всегда срабатывает в случае, если никакая ячейка не выбрана или фокус имеет другой элемент управления.
Source: http://delphiworld.narod.ru/
ID: 01108