Событие на F1

[fet87]

Здраствуйте всем
Пишу программу столкнулся с тем что надо на кнопку F1 повесить событие. Не могу найти как. Подскажите пожалуйста. За ранее СПС.

Искал поиском подобного ни чего не нашёл.

[MaxNik2009]

у формы свойство KeyPrewiew ставишь равным true, и потом обрабатывай процедуру FormKeyUp. примерно так:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key = vk_F1 then
     ShowMessage('f1');  // тут будет твоя реакция на нажатие F1
end;

[fet87]

Спасибо!!!

[fet87]

Сообщение от MaxNik2009

у формы свойство KeyPrewiew ставишь равным true, и потом обрабатывай процедуру FormKeyUp. примерно так:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key = vk_F1 then
     ShowMessage('f1');  // тут будет твоя реакция на нажатие F1
end;

СПАСИБО!!!