Hallo again,
Himitsu's Beispiel funktioniert, aaaaaber,
, nicht wenn man Pfeil links oder Pfeil rechts benutzt.
Deshalb dachte ich, ich könnte die WndProc überschreiben, und wäre alle sorgen los.
Die nachfolgende Prozedur tut aber mal gar nix! Kann mir jemand sagen, warum?
Delphi-Quellcode:
procedure TForm1.WndProc(var Msg: TMessage);
begin
case msg.msg of
wm_KEYDOWN:
begin
i := i + 1;
statictext1.Caption := format('Zahl: %d', [i]);
end;
WM_KEYUP:
begin
i := 0;
statictext1.Caption := format('Zahl: %d', [i]);
end;
end;
inherited;
end;
Vielen Dank und viele Grüße
Marco