[Lazarus] Fw: Re: One last ask for help

[Hans-Peter Diettrich]

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