Главная страница | назад





Article #16145: Arrow and Function Keys

 Question and Answer Database
FAQ1145D.txt Arrow and Function Keys
Category :VCL
Platform :All
Product :All 32 bit
Question:
How can I trap the Arrow and Function Keys?
Answer:
Check for the correct virtual key in the KeyDown event for the
form.
Example:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RIGHT then
Form1.Caption := 'Right';
if Key = VK_F1 then
Form1.Caption := 'F1';
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99