Button überspringt OnKeyDown bei VK_Up / VK_Down

[Aike]

Hallöchen,

ich musste gerade verwundert feststellen, dass ich meine Buttons zwar durchlaufen kann mit VK_Up und VK_Down, aber wenn ich möchte, dass bei OnKeyDown der Knopf gedrückt werden soll, geht das nicht. Um genauer zu sein:
Ich habe eine Liste von 5 Buttons in der Vertikalen. Wenn ich nun den obersten Knopf gedrückt habe, möchte ich, dass, wenn ich die Pfeiltaste nach unten drücke, der Button darunter gedrückt und fokusiert wird.

Code-Schnipsel:

Delphi-Quellcode:

procedure TForm1.Button1KeyDown(Sender: TObject; ...);
begin
  ShowMessage('');
  if Key=VK_Down then
  begin
    ButtonDarunterAnvisieren;
  end;
end;

Es wird nichtmal die ShowMessage angezeigt, wenn ich die Pfeiltasten benutze. Mit Buchstaben funktioniert es natürlich einwandfrei.

Habt ihr eine Idee, wie ich das abfangen kann?

Liebe Grüße ...

[Robert Marquardt]

Die Pfeiltasten gehoeren zu den Dialog-Tasten wie der Tabulator. Sie werden also normalerweise schon vorher abgefangen und bewirken das der Focus auf den naechsten Button wechselt. Mach doch einfach mal eine Form mit ein paar Buttons und probier aus.

[uwewo]

Ist im OI Deines Forms

Delphi-Quellcode:

Keypreview := True;

[Aike]

Zitat:

Zitat von Robert Marquardt

Die Pfeiltasten gehoeren zu den Dialog-Tasten wie der Tabulator. Sie werden also normalerweise schon vorher abgefangen und bewirken das der Focus auf den naechsten Button wechselt. Mach doch einfach mal eine Form mit ein paar Buttons und probier aus.

Das ist ja genau mein Problem, aber wie löse ich es? o.O

Delphi-Quellcode:

KeyPreview:=True

... hilft mir auch nicht weiter.

Die Hilfe sagt:

Zitat:

"Hat KeyPreview den Wert true, erhält das Formular Tastaturereignisse vor dem aktiven Steuerelement (das in der Eigenschaft ActiveControl angegeben ist).
[...] Die Einstellung bezieht sich nicht auf Navigationstasten (TAB, Pfeiltasten usw.), da diese keine Tastaturereignisse auslösen."

Das hat also nichts mit den Steuertasten zu tun :-/

[Robert Marquardt]

Ich sehe keinen Sinn in dem was du machen willst. Das Konzept des Fokus und der Standardnavigationstasten fuer den Fokus ist Basis von Windows und damit der VCL. Da ohne Not einzugreifen macht das Programm nur verwirrend.
Warum willst du den Button gleich druecken? Was soll die Programmoberflaeche eigentlich machen? Ich wette die Idee Buttons zu verwenden ist der Aufgabe unangemessen.

[SirThornberry]

mich interessiert wie Robert der Beweggrund. Der Windowsnutzer erwartet bei Verwendung der Pfeiltasten das Windowsstandardverhalten.
Ich weiß zwar die Lösung, aber noch bin ich nicht gewillt diese raus zu rücken da ich nicht will das irgend ein Nutzer ein böses erwachen erlebt weil plötzlich etwas passiert das eigentlich nur beim klick auf den Button passieren sollte.

[Aike]

Meine Anforderung scheint ja sehr viel Aufmerksamkeit zu erregen; den Grund verstehe ich aber nicht so genau, da es eigentlich recht trivial ist. Ich habe ja nicht nach Code zu bösartiger Software gefragt.

Hier ein Bild, das meine Oberfläche zeigt:
http://www.files.artherk.de/FastCast_Optionen.jpg

Ihr seht links die fünf Schalter, die durchlaufen werden können. Je nachdem, welcher Schalter gedrückt wurde, wird ein anderes Panel gezeigt mit anderen Einstellungsmöglichkeiten. Ich habe es realisiert, dass man die Buttons mit 1,2,3,4,5 öffnen kann, aber dass man sie mit den Pfeiltasten nicht erreicht, ist mir ein Dorn im Auge.

So, jetzt lasst aber mal hören, wie die Lösung aussieht ;-p

[edit]

Zitat:

Ich wette die Idee Buttons zu verwenden ist der Aufgabe unangemessen.

Die Wette nehm ich an ;-p
[/edit]

[angos]

Hi,

Hilft dir die Routine OnEnter weiter?:

Delphi-Quellcode:

procedure TForm1.Button1Enter(Sender: TObject);
begin
  if Sender = Button1 then 
    Panel1.Visible := True;
end;

[Aike]

Ah, super, die OnEnter-Routine funktioniert. Vielen lieben Dank :-)

[Robert Marquardt]

Ich hatte auch recht. Das mit Buttons zu loesen ist falsch. Fuer diese Organisationsart ist ein TTabControl zustaendig.

[Aike]

TTabControl lässt sich allerdings nicht in eine Horizontale zwängen, weswegen die Button-Lösung die richtige ist ;-p

[Robert Marquardt]

Komisch, sowohl TabControl als auch PageControl lassen sich bei mir umschalten. Dabei wird die Schrift auch noch vertikal geschrieben.

[Aike]

Huch, die Eigenschaft TabPosition hab ich gar nicht gesehen. Allerdings ist eine vertikale Schrift alles andere als der Übersichtlichkeit dienlich. Darum ist meine Lösung doch die richtige, solange es keine Lösung gibt, die meine Buttons (o.ä.) in einer vertikalen Anordnung aber mit horizontaler Schrift bietet.

[sh17]

Das würde mich jetzt aber doch interessieren.

Kann man irgend wie erzwingen, die Nachrichten VK_DOWN und VK_UP vor den Buttons zu erhalten. Auch wenn es, wie es scheint, gegen das Windowsstandardverhalten ist. In bestimmten Dialogen möchte ich nicht, das mit den Pfeiltasten zwischen den Buttons herumgesprungen wird, sondern eine andere Aktion durchgeführt wird. Und das klappt eben nicht, wenn die Buttons gerade den Fokus haben. Dann kommen die Events nicht mehr durch.

[Robert Marquardt]

Erzwingen kann man das schon (ein Memo oder Edit machen das ja), aber man verliert dabei die Navigation zwischen den Buttons.

[sh17]

Zitat:

Zitat von Robert Marquardt

aber man verliert dabei die Navigation zwischen den Buttons.

Das macht in diesem Fall nichts.

[Lannes]

Hallo,

Checkbox = Button:
Checkbox / KeyDown, KeyPress, KeyUp | Beitrag #6 oder #7

[bitsetter]

Zitat:

Zitat von Aike

Huch, die Eigenschaft TabPosition hab ich gar nicht gesehen. Allerdings ist eine vertikale Schrift alles andere als der Übersichtlichkeit dienlich. Darum ist meine Lösung doch die richtige, solange es keine Lösung gibt, die meine Buttons (o.ä.) in einer vertikalen Anordnung aber mit horizontaler Schrift bietet.

Hi,

man könnte die Schrift jedoch selber zeichnen,

Delphi-Quellcode:

 procedure TForm1.FormCreate(Sender: TObject);
begin
  TabControl1.OwnerDraw := true;
  TabControl1.TabPosition := tpLeft;
  TabControl1.TabWidth := 25;
  TabControl1.TabHeight := 75;
end;

procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  if Control is TTabControl then
    TTabControl(Control).Canvas.TextOut((Rect.Right - Rect.Left -
    TTabControl(Control).Canvas.TextWidth(TTabControl(Control).Tabs[TabIndex])) div 2,
    Rect.Top + (Rect.Bottom- Rect.Top -
    TTabControl(Control).Canvas.TextHeight(TTabControl(Control).Tabs[TabIndex])) div 2,
    TTabControl(Control).Tabs[TabIndex]);
end;

ob das ein zufriedenstellendes Ergebnis ist, ist natürlich Ansichtssache.

EDIT: Der Fehler wurde behoben, dass alle Taps die selbe Caption haben.

[Aike]

Das sieht doch schonmal sehr nett aus, aber die Tabs haben jetzt alle die selbe Caption :-/

[bitsetter]

Den Code habe ich jetzt abgeändert, es lag wohl an

Delphi-Quellcode:

with TTabControl(Control) do

jetzt müsste es eigentlich funktionieren.