TabSheets zur Laufzeit zu einer PageControl hinzufügen

[messie]

Hallo miteinander,

ich dachte, man könnte Tabsheets auch zur Laufzeit in eine Pagecontrol einfügen. Scheint aber doch nicht zu funktionieren. Kennst jemand einen Trick, wie es doch geht? Habe in den bisherigen Themen nix dazu gefunden.

Grüße, Messie

[alcaeus]

Hallo messie,

wenn du uns nicht sagst, was du versucht hast, koennen wir nur raten. Nur als Tipp: bei mir funkt es so:

Delphi-Quellcode:

var Sheet: TTabSheet;
begin
  Sheet := TTabSheet.Create(SomePageControl);
  Sheet.Caption := 'SomeCaption';
  Sheet.PageControl := SomePageControl;
end;

so koenntest du unter Umstaenden zwar Speicherlecks kriegen, aber ich lass dich selbst nachdenken, wie du das Problem in den Griff kriegst :zwinker:

Greetz
alcaeus

[Sergej]

Also bei mit funktionierts z.B. so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var TabSheet : TTabSheet;
begin
 TabSheet := TTabsheet.Create(pagecontrol1);
 Tabsheet.PageControl := Pagecontrol1;
end;

Greetz Sergej


[edit] verdammt zu langsam... =)[/edit]

[messie]

Danke Leute,
die property PageControl fehlte, das war alles.

Leider fällt mir jetzt das Nächste auf die Füße. Die PageControl soll neu aufgebaut werden. Dazu müssen alle vorhandenen Tabsheets raus:

Delphi-Quellcode:

for i := 1 to PageControl.PageCount do
begin
  PageControl.pages[i-1].Free;
end;

Das gibt es häufig "Listenindex überschreitet..." und es werden nur einige TabSheets gelöscht :wiejetzt:

[alcaeus]

Hallo messie,

loesche die Tabsheets von "hinten nach vorne". Andernfalls versucht die Schleife auf Elemente zuzugreifen, die nicht mehr existieren:

Delphi-Quellcode:

for i := PageControl.PageCount-1 downto 0 do
  PageControl.Pages[i].Free;

Greetz
alcaeus

[messie]

Ja, logisch!

Danke, Messie