Помощь F1

[Stanislav]

Здравствуйте!
Проблема такая: как зделать чтоб при нажати F1 открывалось окно предположем: я делаю так:


procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=vk_F1 then showmessage('Ok');
end;


И еще так пробывал:

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=$70 then showmessage('Ok');
end;

Взял с DelphiWorld


Выдает ошибку: Incompatible types И еще о не возможности скомпилировать 2 юнит....
Помогите пожайлусто разобраться ...
Спасибо...

[dron-s]

во первых: поставь KeyPreview := True
во вторых: if key=vk_F1 then showmessage('Ok') писать надо в обработчике OnKeyDown а не в OnKeyPress

[Квэнди]

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

[dron-s]

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

я так думаю что ему просто необходимо что то открывать по нажатию функциональных клавишь...
до справки ещё далеко

[Stanislav]

Сообщение от dron-s

во первых: поставь KeyPreview := True
во вторых: if key=vk_F1 then showmessage('Ok') писать надо в обработчике OnKeyDown а не в OnKeyPress

KeyPreview := True выставил :
Просто получаеться обработчики перепутал.
Спасибо все работает...

[Stanislav]

Сообщение от dron-s

я так думаю что ему просто необходимо что то открывать по нажатию функциональных клавишь...
до справки ещё далеко

Насчет нормальной справки она объязательно будет...
а насчет проблем лишних я уже устал писать по этому поводу что мне некуда деть код во-первых, а во-вторых программа расчитана на 1 курс а судя по ним им пригодиться клавиша ф1......
за ответы спасибо....

[dron-s]

за ответы спасибо....

пожалуйста!
обращайся