"wie" PageControl

[Stephan]

Hi,

Ich möchte sowas ähnliches wie ein PageControl verwenden. Das PageControl hat leider oben solche Reiter. Aber wie kann ich sowas komplett ohne Reiter gestalten sondern z.B. per normalem Button ansprechen?!

viele Grüße

Stephan

[Christian Seehase]

Moin Stephan,

stell' doch einfach mal den Style auf Button oder FlatButton um.

[Stephan]

Hi,

ne, das mein ich nicht direkt. Das mit dem Buttons war ein Beispiel. In manchen Programmen sieht man links eine Liste von Einträgen und sobald man auf einen Eintrag klickt ändert sich rechts komplett alles, neue edits, checkboxes..... genau sowas möcht ich machen.

[CalganX]

Nimm dir ein TNotebook. Pflanze es auf dein Formular.
Nehme dir Buttons. Pflanze sie auf dein Formular. Verändere das OnClick-Ereignis aller Buttons auf:

Delphi-Quellcode:

procedure TForm1.AllBtnsClick(Sender: TObject);
begin
  Notebook1.ActivePage := (Sender As TButton).Caption;
end;

Die Beschriftung der Buttons muss den jeweiligen Seitennamen des Notebooks entsprechen...

Chris

[Stephan]

Hi,

Klasse, Danke! Über die Beschriftung ist das bei mir nicht soo geschickt (multilinguale Anwendung). Aber

Notebook1.ActivePage := 'test';

klappt super.

viele Grüße

Stephan

[Marco Haffner]

Du kannst auch die einzelnen Tabs des PageControl in einer schleife ausblenden.

Delphi-Quellcode:

var
  I: Integer;
begin
  with PageControl do
  for I := 0 to (PageCount - 1) do
    Pages[I].TabVisible := False;
end;