Fokus von Button nehmen

[MrMooed]

'Nabend DP,

durch meinen "kleinen" Snake-Klon bin ich auf ein kleines Problem gestoßen:

Wenn ich auf einen Button klicke und danach mittels Pfeiltasten weiter spielen möchte, reagiert das Programm nicht mehr auf dieses Ereignis.
Nun habe ich vermutet, dass es dadran liegt, dass ich Form1 im Fokus haben muss, damit es Tasten erkennt. Doch mit einem einfachen Form1.SetFocus komme ich nicht weiter :?
Bin ich mit meiner Vermutung auf dem Holzweg ? Denn komischer Weise klappen nur die Pfeiltasten nicht mehr. Soll heißen: wenn ich die Steuerung auf WASD lege, funktioniert alles einwandfrei. Auch wenn der Button weiterhin im Fokus ist :idea:


Hat jemand schon einmal das selbe Problem gehabt und gelöst ? Wäre für jegliche Idee dankbar

[himitsu]

Müssen nicht unbedingt, aber

• {Form.}ActiveControl auf nil setzen
• OnKeyUp/OnKeyDown/OnKeyPress des Buttons verarbeiten
• eventuell hilft auch schon {Form.}KeyPreview
• oder du nutzt einen Button, welcher keinen Fokus bekommen kann (SpeedButton)

[MrMooed]

Zitat:

Zitat von himitsu (Beitrag 1161901)

{Form.}ActiveControl auf nil setzen

Habe .ActiveControl mal Testweise im OnCreate auf nil gerichtet -> keine Besserung

Zitat:

Zitat von himitsu (Beitrag 1161901)

OnKeyUp/OnKeyDown/OnKeyPress des Buttons verarbeiten

Wie gesagt, ich steuer damit meine Schlange. Oder meinst du etwas anderes Verarbeiten ? Weise in abhängigkeit von der Taste der Variable Richtung einen Wert zu (0..3) für die jeweilige Richtung

Zitat:

Zitat von himitsu (Beitrag 1161901)

eventuell hilft auch schon {Form.}KeyPreview

Habe ich leider auch schon aktiviert, da ich es für mein OnKeyPressed Event benötige :?

Zitat:

Zitat von himitsu (Beitrag 1161901)

oder du nutzt einen Button, welcher keinen Fokus bekommen kann (SpeedButton)

BitButtons gehören da nicht zufällig zu ? :lol: so einen benutze ich im Moment. Damit scheint es zu klappen .. verrückte Welt.


Doch kennt jemand noch eine Lösung für BitButtons/ Normale Buttons ? Mich würde interessieren, warum der Button um nichts in der Welt den Fokus zurück gibt ..

[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. :zwinker:

[MrMooed]

Zitat:

Zitat von himitsu (Beitrag 1161910)

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

vllt. hat jemand von euch das laute *RUMMS* gehört gerade eben - das war nur meine Hand, die vor die Stirn geflogen ist :wall:
Ich könnte schwören, dass ich im OI vom Button unter Events gescheut habe :oops: 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 :roll:

Danke an dieser Stelle und bis zum nächsten Problem :hi:

[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 (

Delphi-Quellcode:

' '

oder

Delphi-Quellcode:

Ord(' ')

) verarbeiten
- in OnClick

Delphi-Quellcode:

Memo1.Lines.Insert(0, 'Button gedrückt');

(das Ereigniss beim Drücken des Button)
- in OnKeyPress

Delphi-Quellcode:

Memo1.Lines.Insert(0, 'Leertaste gedrückt');

(was Anderes)
- in OnKeyDown

Delphi-Quellcode:

Memo1.Lines.Insert(0, 'Leertaste drücken');

(nochwas)
- in OnKeyUp

Delphi-Quellcode:

Memo1.Lines.Insert(0, 'Leertaste loslassen');