Einzelnen Beitrag anzeigen

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#1

[Andorra] - Auf Events reagieren ?

  Alt 5. Jan 2009, 17:14
Hallo,
Bei einem Projekt möchte ich gerne auf die Tastertur und Maus Events reagieren können. Jedoch klappt das einfach nicht zuverlässig. Selten klappt es. Dann eine Zeitlang überhaupt nicht.
Delphi-Quellcode:
    AdDraw.Window.Events.OnMouseDown:=MouseDown;
    AdDraw.Window.Events.OnKeyDown:=KeyDown;

procedure TPlSMC.KeyDown(Sender: TObject; Key: Word; Shift: TAdShiftState);
begin
  if key in [ord('0')..ord('9')] then begin
    AdObjTyp:=StrToint(chr(key));
    writeln(AdObjTyp);
  end;
end; // TPlSMC.KeyDown
Das ist die kurz Fassung. Ich arbeite mit Linux,
Lazarus 0.9.27, Debian, Lenny unter KDE

Kann mir jemand sagen was ich Falsch gemacht habe oder vergessen habe ? Danke !
Im Übrigen habe ich das mit AdDraw.Window.Events aus den Beispielen. Da klappt es auch nicht zuverlässig. Könnte ein Lazarus Problem sein bzw. ein Linux Problem. Wobei die Normalen Events klappen. Nur halt nicht in Andorra.
Michael Springwald
MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
  Mit Zitat antworten Zitat