Zitat von
Pseudemys Nelsoni:
wie geht das denn mit dem pagecontrol? ich bekomme die tabs nicht weg
Jedes einzelne TabSheet hat die Eigenschaft
TabVisilbe dieses auf False aber das Visible des TabSheet wieder auf True(wird im
OI nämlich automatisch auch False).
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
ndx : integer;
begin
for ndx := 0 to pred(PageControl1.PageCount) do
begin
PageControl1.Pages[ndx].TabVisible := False;
PageControl1.Pages[ndx].Visible := True;
end;
end;
Nachtrag
Mit
PageControl1.ActivePageIndex := X wählst Du im Code dann die Aktive Seite aus.
Stephan B.
"Lasst den Gänsen ihre Füßchen"