[cadil]

Есть процедура, например,

Код:

procedure TForm1.Image1Click(Sender: TObject);

Данная процедура выполняется по клику клавишей мышки по полю рисунка Image1.
Помогите написать аналогичную процедуру, чтобы она выполнялась по нажатии клавиши клавиатуры, например, пробела.
Хотелось бы освободить человека от постоянного контроля за тем, что курсор находится на поле рисунка.
Спасибо!

[Black Raider]

Код:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#32 then Image1Click(sender);
end;

[cadil]

Сообщение от Black Raider

Код:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#32 then Image1Click(sender);
end;

Спасибо! Удачи!