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





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