Page Control mit X Schließen

[Sharky]

Zitat von tester123:

....hehe ne so schlau bin ich auch ich meine nach dem mans compiliert hat button new ...

Sorry, meine Kristallkugel hat mir nicht gesagt das es zur Laufzeit passieren soll

Also mache es doch einfach so wie bei TMS auf der Homepage beschrieben. (Ganz am ende der Seite über das TAdvPageControl)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ats : TAdvTabSheet;
begin
  ats := TAdvTabSheet.Create(AdvPageControl1);
  ats.AdvPageControl := AdvPageControl1;
  ats.Caption := 'New tab';
end;