Mega Code Archive

 

Categories / Delphi / Examples

 

Key press processing

Title: Key press processing Set form's KeyPreview property to True and do something in OnKeyPress event: procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key='a' then Label1.Caption:='OK'; end;