Fokus von Button nehmen

[Popov]

KeyPreview = True ist eigentlich das was du benötigst. Es sorgt dafür, je nach Event, dass das Formular die Tastenanschläge der Komponenten bekommt. Wenn nichts ankommt, vielleicht hast du irgendwo die Keys abgefangen und sie verändert.

Alternativ kannst du SpeedButtons nehmen, die bekommen nämlich keinen Fokus ab.

[himitsu]

BitBtn gehört auch dazu. Bei einem der Beiden kann man dieses Verhalten aber an/abschalten.

Ja, du verarbeitest vielleicht das OnKeyUp/OnKeyDown/OnKeyPress der Form, aber scheinbar nicht die des Buttons.

[MrMooed]

Zitat von himitsu:

Ja, du verarbeitest vielleicht das OnKeyUp/OnKeyDown/OnKeyPress der Form, aber scheinbar nicht die des Buttons.

vllt. hat jemand von euch das laute *RUMMS* gehört gerade eben - das war nur meine Hand, die vor die Stirn geflogen ist
Ich könnte schwören, dass ich im OI vom Button unter Events gescheut habe scheinbar nicht gut genug.

Damit ist es natürlich kein Problem mehr, wenn der Button den Fokus nicht her gibt.

Oh man, nächstes mal prüfe ich 3x den OI nach 'nem passenden Event

Danke an dieser Stelle und bis zum nächsten Problem

[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');