Re: [Lazarus] Key scan codes

2017-05-29 Thread Larry Dalton via Lazarus
Yes. That is what I wanted. Thanks! Sent from my iPhone > On May 29, 2017, at 07:17, shoKwave via Lazarus > wrote: > > Something like: > > procedure TForm1.FormKeyPress(Sender: TObject; var Key: char); > begin > Label1.Caption := '$' + IntToHex(Ord(Key), 2); > end; > > >> Am 28.05.2017 um

Re: [Lazarus] Key scan codes

2017-05-29 Thread shoKwave via Lazarus
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 system

[Lazarus] Key scan codes

2017-05-28 Thread 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://