Something like: procedure TForm1.FormKeyPress(Sender: TObject; var Key: char); begin Label1.Caption := '$' + IntToHex(Ord(Key), 2); end;
Am 28.05.2017 um 23:11 schrieb Larry Dalton via Lazarus:
I need a function or procedure that will return the scan code for a keypress on both Linux systems and Windows, ie when the 'L' key is pressed it would return '$4C'. Sent from my iPhone
-- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus
