нажатие кнопки

[megostudent]

как сделать чтобы при нажатии в программе на клавишу F1 срабатывал клик button1

[Silver_S]

Можно использовать ActionList, свойство ShortCut, или же событие формы OnKeyPress, проверять клавишу и выполнять button1.Click

[JUDAS]

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('F1');
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_F1 then  Button1Click(Button1);
end;

[Человек_Борща]

JUDAS, у кнопки есть собственный метод клика.
по этому нужно так:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_F1 then  Button1.Click;
end;

[megostudent]

вот и я также делал, но не пойму почему у меня не работает?
ставил на 1

Key=$31

все равно при нажатии мессагу не выбивает.
что ж еще может быть???

[JUDAS]

у кнопки есть собственный метод клика.

ну если кнопка - потомок класса TButton то Ваша правда. Я привёл кусок рабочего кода прямо с делфи.

почему у меня не работает?

выставьте TForm.KeyPreview := true; и будет Вам счастье

[megostudent]

вот спс большое)

[FaTaL]

ИМХО лучше это делать через горячие клавиши RegisterHotKey

[megostudent]

procedure TForm1.FormCreate(Sender: TObject);
const
VK_F4 = $73;
 begin
 if  RegisterHotKey(handle, 0, 0, VK_F4) then
 button1.Click;

end;

как ток запускаю сразу срабатывает нажатие клавиши, что не так?

[art-programs]

как ток запускаю сразу срабатывает нажатие клавиши, что не так?

ну регистрация хоткея прошла успешно, вот и срабатывает))))))
эта функция только регистрирует), но не ловит хоткей
ловить его нужно отдельно