Как написать событие на получение фокуса кнопкой?

[chandrasecar]

Есть 9 кнопок. Клавишами стрелок на клавиатуре можно переходить с кнопки на кнопку, при этом устанавливается фокус. События onFocus или что-то похожего нету. Нужно чтобы при установки фокуса на каждую кнопку выполнялось определенное событие. Для каждой кнопки свое. Кнопки тапа TBitBtn. Как такое можно реализовать?

[Антон Ю.Б.]

см. событие OnEnter, хотя не оч понятно, что ищется

[Ayubkhon]

Для каждой кнопики в событии OnEnter, например:

Procedure TForm1.BitBtn2Enter(Sender: TObject);
begin
  showmessage('BitBtn2');
end;

[apromix]

Можно пронумеровать свойство Tag каждой кнопки и работать со всеми сразу в одном событии, а выяснять, какая сейчас нажата по этому свойству.

[Пепел Феникса]

Ayubkhon, а можно использовать Sender и не парится

[chandrasecar]

В том то и дело, что на кнопку мы не нажимаем, не кликаем и не жмем Enter. А только фокус кнопками стрелок устанавливаем.

но это попробую:

Procedure TForm1.BitBtn2Enter(Sender: TObject);
begin
  showmessage('BitBtn2');
end;