Arí Ricardo Ody schrieb:
procedure TMyForm.FormKeyPress(Sender: TObject; var Key: char); begin case Ord(Key) of {$IFDEF WIN32} Ord('>'), // this helps to simulate on Win32 {$ENDIF} Ord(#03): begin // aka EOT
I'd suspect that #3 never occurs in KeyPress, because it's a control character. Did you try KeyDown instead?
DoDi -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
