[XENON]

Добрый день пользователи форума. Подскажите пожалуйста, как можно присвоить в процедуре событие 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. Как это можно сделать?

[lmikle]

Это не совсем присвоить, это, скорее, вызвать.
А по сути - так же, только там параметры другие, соответсвенно, придется туда подсунуть какие-то фейковые значения:

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
  VK_NUMPAD1:Image2.OnMouseDown(Sender,mbLeft,Shift,0,0);
  end;
end;

[XENON]

Спасибо огромное) все получилось, работает ^__^