Перемещение по StringGrid

[Hagard]

Здравствуйте. Подскажите пожалуйста, как реализовать перемещение по ячейкам StringGrid только с помощью стрелок, т.е. нельзя было бы выделить ячейку мышкой.

[evg_m]

вар A
1 заблокировать доступ пользователя к таблице
stringGrid.enabled:=false;
2. в контроле на котором лежит таблица обрабатывать нажатия стрелок.
OnKeyUp или OnKeyDown и двигать выделенную ячейку.

вар Б
1. Ловить в таблице Onclik и возвращать выделение на старое место.

[SERG1980]

procedure TForm1.StringGrid1MouseActivate(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y, HitTest: Integer;
  var MouseActivate: TMouseActivate);
begin
   MouseActivate:= maNoActivateAndEat
end;

[Hagard]

Спасибо, разобрался