F10 abfangen

[sakura]

Ändere mal Deine Procedure

Delphi-Quellcode:

procedure TForm1.WMKey(var Message: TWMKey); 
begin 
  form1.Caption:=inttostr(message.CharCode); 
end;

nach

Code:

procedure TForm1.WMKey(var Message: TWMKey); 
begin 
  form1.Caption:=inttostr(message.CharCode); 
  [color=#ff0008]inherited;[/color]
end;