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

Автор: Simon

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

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

Надеюсь что помог вам.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 550 • TDictionary Custom Sort 6 578 • Fast Watermark Sources 6 350 • 3D Designer 9 300 • Sik Screen Capture 6 683 • Patch Maker 7 053 • Айболит (remote control) 7 065 • ListBox Drag & Drop 5 937 • Доска для игры Реверси 97 419 • Графические эффекты 7 269 • Рисование по маске 6 566 • Перетаскивание изображений 5 438 • Canvas Drawing 5 803 • Рисование Луны 5 509 • Поворот изображения 5 039 • Рисование стержней 3 593 • Paint on Shape 2 845 • Генератор кроссвордов 3 725 • Головоломка Paletto 3 002 • Теорема Монжа об окружностях 3 808 • Пазл Numbrix 2 506 • Заборы и коммивояжеры 3 195 • Игра HIP 2 163 • Игра Go (Го) 2 096 • Симулятор лифта 2 470 • Программа укладки плитки 2 135 • Генератор лабиринта 2 612 • Проверка числового ввода 2 289 • HEX View 2 623 • Физический маятник 2 232