detecting F1 press not working?

[CADTenchy]

I'm trying to detect when a F key, like F1 is pressed on my form.

I've set the form's KeyPreview property to True.

I've tried a few variations from tips I've found, but none work.
This works if I change the #112 to 65 and press A:

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key in [#112] then Label7.Caption := 'F1 pressed';
key := #0;
end;

But #112 (ASCII for F1??) does not, and any mention of VK_F1 gives an error basically saying non integer.

How do I get this to work?

Steve (Delphi 2007 & XP)

 

[whosrdaddy]

use the onkeydown method instead of onkeypress, there you can check against VK_F1.

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[Glenn9999]

Use FormKeyDown instead. FormKeyPress only works for alphanumerics and not function keys.

 

[whosrdaddy]

lol glenn, a minute too late

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[Glenn9999]

Actually seconds - I saw your post as mine went through. It didn't take that long for me to type it either.

 

[CADTenchy]

Thanks both, that worked fine. Great minds think alike huh, at same time


Steve (Delphi 2007 & XP)