[Lazarus] Key scan codes

[shoKwave]

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