Fokus von Button nehmen

[himitsu]

PS: Wenn du von Komponenten oder im KeyPreview einen Ereignis abfängst, dann ist es manchmal nicht schlecht, dieses auch als "Verarbeitet" zu markieren.

z.B. wenn man vom Button die Leertaste abfängt und das eventuell im nicht nur im OnKeyDown, sondern dann auch im OnKeyUp, denn sonst würde der Button sonst auch nochmal darauf reagieren.
- Entweder es gibt sowas wie einen Handled/Behandlet-Status, wie z.B. das Funktionsresult oder einen Varparameter.
- Bei OnKeyUp/-Down/-Press kann man den Key auf #0 oder 0 setzen.
- Man ruft Abort auf. (wenn möglich, dann aber besser ohne diese stille Exception)
- Oder es gibt noch irgenwelche andere Möglichkeiten.

[MrMooed]

Ich hatte es bisher so gelöst:

Delphi-Quellcode:

Case Key of  
  VK_LEFT : if (Richtung <> Rechts) and (Richtung <> Links) and (TasteGedrueckt = False) 
            then begin
                   Richtung := Links;
                   TasteGedrueckt := True;
                 end;

Im OnTimer Event (also da wo die neue Bewegung berechnet wird) wird dann wieder TasteGedrueckt = False gesetzt. Das verhinderte, dass man sich nicht selber beißen kann (indem man schnell die Richtung ändert) und eben, dass das Event nicht 2mal ausgeführt wird.

[himitsu]

Das meinte ich nicht.
Damit blockst du ja nur deine eigene Eventbehandlung.



Geh mal ins OnKeyDown oder OnKeyUp eines Buttons und versuch die Leertaste abzufangen, bzw. damit was anderes zu machen.

Auf die Form ein Memo pappen und dann jeweils das an den Button hängen und die Leertaste (' ' oder Ord(' ') ) verarbeiten
- in OnClick Memo1.Lines.Insert(0, 'Button gedrückt'); (das Ereigniss beim Drücken des Button)
- in OnKeyPress Memo1.Lines.Insert(0, 'Leertaste gedrückt'); (was Anderes)
- in OnKeyDown Memo1.Lines.Insert(0, 'Leertaste drücken'); (nochwas)
- in OnKeyUp Memo1.Lines.Insert(0, 'Leertaste loslassen');