Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Prism Navigieren mit Pfeiltasten (https://www.delphipraxis.net/76006-navigieren-mit-pfeiltasten.html)

eddie11 28. Aug 2006 16:35


Navigieren mit Pfeiltasten
 
Hi,

ich möchte in einem Form mit den Pfeiltasten zwischen den Controls navigieren (ich weiss, dass dieses Thema schon des öfteren besprochen wurde, habe aber keine Antwort gefunden).

Ich habe im Form KeyPreview auf true gesetzt und frage im OnKeyPress des Forms die gedrückte Taste ab, PfeilLinks = linkes Eingabefeld wird angesprochen, PfeilRechts=rechtes Eingabefeld, Pfeil rauf=oberes, Pfeil runter=unteres. Das funzt mit TextBoxen auch wunderbar - nicht jedoch mit Buttons. Wenn der Focus auf einem Button steht, dann krieg ich im Form gar kein KeyPress-Event. Die Pfeiltasten werden bei Buttons anscheinend von Windows abgehandelt und es wird kein Ereignis ans Form weitergegeben, beim Drücken einer Pfeiltaste auf einem Button wird bei rechts+runter das nächste Objekt in der Tabreihenfolge aufgerufen, bei links+rauf das vorige, ohne dass mein Form das überhaupt mitkriegt.

Was ist zu tun, um die Tastaturereignisse des Buttons abzufragen, wenn ein Button aktiv ist (alle anderen Tasten wie 'A','B' etc. erzeugen das gewünschte Event, nicht jedoch die Cursortasten) ?

Danke
Eddie

Jürgen Thomas 28. Aug 2006 17:02

Re: Navigieren mit Pfeiltasten
 
Hallo Eddie,

nach der SDK-Doku sollte es so gehen:
1. Buttons mit einem eigenen KeyPress-Ereignis verbinden (in diesem Fall dürfte eines für alle reichen)
2. nach Erledigung e.Handled := true setzen.

Gruß Jürgen

Lannes 28. Aug 2006 17:40

Re: Navigieren mit Pfeiltasten
 
Hallo,

glaube das Dir das helfen könnte:
Buttonmatrix

eddie11 28. Aug 2006 19:14

Re: Navigieren mit Pfeiltasten
 
Hi Jürgen,

danke für die Antwort, aber das hab' ich schon ausprobiert, KeyPress, Keydown etc. werden wunderbar weitergegeben, so dass ich sie auswerten kann - bis auf die Pfeiltasten :-(

Hi Lannes,

das muss ich mal in Ruhe 'reinziehen und ausprobieren, scheint mir aber so, als ob das unter .net nicht funzen wird..

by the way, es wird mir wohl nicht anderes übrigbleiben als eine eigene Komponente zu schreiben, hab' schon damit angefangen....

vielen Dank für Eure Antworten
Eddie

Hawkeye219 28. Aug 2006 19:41

Re: Navigieren mit Pfeiltasten
 
Hallo Eddie,

in diesem Thread geht es zwar um Win32, möglicherweise kannst du die dort gemachten Vorschläge aber auf .NET portieren.

Gruß Hawkeye

eddie11 29. Aug 2006 06:15

Re: Navigieren mit Pfeiltasten
 
das bezieht sich leider alles auf win32, habe bisher keine Möglichkeit gefunden bei .net die Windows-Messages abzufangen. Application.OnMessage gibts nicht, habe auch nix vergelichbares gefunden. Wer weiss Rat?

eddie11 30. Aug 2006 07:39

Re: Navigieren mit Pfeiltasten
 
habs gefunden: WndProc ist eine überschreibbare Prozedur, die mir alle Windows-Messages zurückgibt. Habe dabei allerdings ein Problem: Kriege als Message einen Integer-Wert zurück, ich würde das gerne Auswerten, weiss aber nicht, welcher Wert welchem Ereignis entspricht

Delphi-Quellcode:
type
 
  strict protected
    procedure WndProc(var m: Message); override;
....

procedure TForm.WndProc(var m: Message);
begin;
  case m.Msg of
    was soll hier rein ???:
  end;
  inherited WndProc (m);
end;
Finde nirgendwo eine Erklärung welcher m.Msg - Wert welchem Ereignis entspricht....

Gruß
Eddie

Jürgen Thomas 30. Aug 2006 08:30

Re: Navigieren mit Pfeiltasten
 
Zitat:

Zitat von eddie11
Finde nirgendwo eine Erklärung welcher m.Msg - Wert welchem Ereignis entspricht....

Hast Du die Quelltexte? Dann stehen die Werte hier:
{Delphi_2005}\source\dotNet\rtl\Borland.Vcl.Messag es.pas

Gruß Jürgen

eddie11 30. Aug 2006 08:40

Re: Navigieren mit Pfeiltasten
 
hab' ich leider nicht...

finde nur eine ....Vcl.Messages.dcuil - damit kann ich nix anfangen. Wo krieg ich die Soiurcen den her ?

eddie11 30. Aug 2006 13:49

Re: Navigieren mit Pfeiltasten
 
Habs' sind natürlich WM_KEYDOWN und UP

aber....

da hilft mir WndProc auch nicht weiter - ich krieg nach wie vor nur die Ereignisse durchgereicht, die Windows nicht schon vorher abarbeitet, KeyDown auf'm Button krieg ich nicht mit wenn es sich um Pfeiltasten bzw. Enter handelt. Kann ich da überhaupt was tun???

DGL-luke 30. Aug 2006 13:59

Re: Navigieren mit Pfeiltasten
 
hat die Form eine "KeyPreview"-Eigenschaft? Wenn ja, die auf true stellen, dann sollten alle Messages zuerst zur WndProc kommen.

eddie11 30. Aug 2006 14:40

Re: Navigieren mit Pfeiltasten
 
hatte ich vergessen zu erwähnen, egal ob KeyPreview auf True oder false steht, das funzt trotzdem nicht

himitsu 30. Aug 2006 14:51

Re: Navigieren mit Pfeiltasten
 
Schonmal versucht direkt über die WndProc der Button zu gehen?

Per SetWindowLong und mit den EditX.Handle's sollte sich da was machen lassen und dort kommen die Ereignisse ja noch vor der WndProc der Form an ... vielleicht auch schon vor Windows :gruebel:

eddie11 30. Aug 2006 15:35

Re: Navigieren mit Pfeiltasten
 
jo, auch im WndProc der Buttons hab ich's versucht, keine Chance...

himitsu 30. Aug 2006 15:43

Re: Navigieren mit Pfeiltasten
 
hmmmm, dann bleibt ja nichtmehr viel übrig.

Was mir noch einfiehle wäre ein TastaturHook, aber ob man das wirklich soweit treiben muß?

eddie11 31. Aug 2006 10:58

Re: Navigieren mit Pfeiltasten
 
Habe es aufgegeben mit dem Standard-Button...

Habe mir eine eigene Komponente geschrieben, abgeleitet von TUserControl, dort einen Button raufplaziert, alle Properties und Ereignisse weitergereicht.
Das OnKeyDown der Pfeiltasten wird ja von Windoof abgehandelt und normalerweise springt der Focus dann auf das nächste bzw. vorige Feld in der Tab-Reihenfolge. Da im UserControl aber keine weiteren Objekte sind, die den Focus kriegen können, passiert also nix - das Erignis KeyDown wird aber leider auch nicht aufgerufen... macht aber nix, ich frage halt OnKeyUp ab, dann reagiert das Teil zwar nicht auf KeyDown, sondern erst auf Loslassen der Pfeiltaste, aber das ist immer noch besser als garnix machen zu können.

Schade, dass Microzoff mit dieser blöden Tab-Navigation einem da so viel Arbeit beschert hat.... Aber eine intuitive Oberfläche, die man mit den Pfeiltasten bedienen kann (und nicht nur mit der blöden Maus) halte ich schon für sehr wichtig...

Danke für Eure Hilfe


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz