Hmm, also ich weiß nicht, ich hab das einfach so hingeschrieben, hier mal ein bisschen mehr vom Source.
Delphi-Quellcode:
//Button für das TabSheet erstellen
MyButton:= TButton.Create(ts);
MyButton.Parent:= ts; //damit wird dem Button das TabSheet als übergeordnete Komponente zugewiesen
MyButton.Name:= 'Button'+IntToStr(PageControl1.PageCount);
MyButton.Caption:= 'Skript kopieren';
//Funktion zuweisen
MyButton.OnClick := MyRichEdit.SelectAll;
Hoffe das Hilft
