Добрый день пользователи форума. Подскажите пожалуйста, как можно присвоить в процедуре событие OnMouseDown компонента Image на клавишу клавиатуры.
С событием OnClick не трудно:
Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
VK_NUMPAD1:Image2.OnClick(Sender);
end;
end;
Но OnClick для моей программы не подходит, нужно именно OnMouseDown. Как это можно сделать?