Button überspringt OnKeyDown bei VK_Up / VK_Down

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