Фокус ячейки 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