Listbox slected Item --> PageControl Seite öffnen

[Madara Uchiha]

Hallo,

Ich habe eine ListBox mit verschiedenen Einträgen.
Ich möchte gerne, wenn ich in der ListBox ein bestimmtes Item selektiere mir eine
bestimmte seite in meinem PageControl öffnen.
Also wenn das Selektierte Item in der ListBox "Test" heißt --> Zeige Tabsheet1 im Pagecontrol,
wenn selected Item "Test2" heißt --> Zeige Tabsheet2 im Pagecontrol etc..

Mein Ansatz im ListBox1.Mousedown event:

Delphi-Quellcode:

 with ListBox1.Items do
    begin
      if (ListBox1.Items.Text='Test') then
      TabSheet1.Show;
    end;

Nix passiert. Was mach ich falsch?

[vagtler]

Schau Dir noch einmal die Eigenschaften von TPageControl an.

[Madara Uchiha]

Zitat:

Zitat von vagtler (Beitrag 1215817)

Schau Dir noch einmal die Eigenschaften von TPageControl an.

Hm, welche? :o

Also der Teil mit der ListBox stimmt, ja?
Das heißt der Fehler liegt beim Aufruf der PageControl seite?

[Darlo]

Du must den Text des Selected der ListBox vergleichen. Pagecontrol hat doch bestimmt sowas wie Index oder ActiveTabitem....

[Sir Rufo]

Bei beiden kann man die Elemente über einen Index ansprechen

[Perlsau]

Nichts einfacher als das:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
   ListBox1.ItemIndex := 0;
   PageControl1.TabIndex := 0;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   PageControl1.TabIndex := ListBox1.ItemIndex;
end;

[Madara Uchiha]

Zitat:

Zitat von Perlsau (Beitrag 1215834)

Nichts einfacher als das:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
   ListBox1.ItemIndex := 0;
   PageControl1.TabIndex := 0;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   PageControl1.TabIndex := ListBox1.ItemIndex;
end;

Danke, funzt super:)