коды клавиш-?

[Evgenii]

Подскажите, какой код у клавиш F1, F2, F3, F4?
Key=VK_F1 не подходит-выдает ошибку о несовместимости типов

[mihali4]

А так трудно узнать?

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Label1.Caption:=IntToStr(Ord(key));
end;

[Evgenii]

этот же код писал в событии onkeypress безрезультатно. А в keydown работает). Получилось что код F1 равен 112. Задал такое условие в программе: if key=#112 then imege1.visible:=false;
Но почему то при нажатии клавиши F1 никакой реакции не последовало. В чем тут может быть проблема?

[856100]

Использовать обработчик keydown и набор констант. Например:

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

[mihali4]

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

Получилось что код F1 равен 112. Задал такое условие в программе: if key=#112 then imege1.visible:=false;
Но почему то при нажатии клавиши F1 никакой реакции не последовало. В чем тут может быть проблема?

В каком месте программы это задается? По FormKeyPress ?

[Evgenii]

Задавал в

procedure TForm5.FormKeyPress(Sender: TObject; var Key: Char);

получил код 112. При использовании этого кода, нужное действие не выполняется при нажатии F1

[Evgenii]

вот кстати с VK_F1 в keydown получилось)). Я просто использовал не в том месте. Спасибо 856100

[Вавел из ГМТУ]

procedure TForm5.FormKeyPress(Sender: TObject; var Key: Char);

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word);

В то время F1 это два байта, а любая другая(символьная) клавиша одинг байт.

Какбы неудивительно, что что FormKeyPress вобще не реагирует.

[Пепел Феникса]

f1 помоему считается вообще системной клавишей.