Listbox slected Item --> PageControl Seite öffnen

[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 von 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;

Danke, funzt super