Button überspringt OnKeyDown bei VK_Up / VK_Down

[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 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 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 with TTabControl(Control) do jetzt müsste es eigentlich funktionieren.