Hallo
ich versuche mal dir meine Ideen zu deinem Prob hinzuschreiben
aber diese sind nicht getestet!
müssten aber stimmen
Code:
// Neue TabSheet Seite wird erstellt
with TTabSheet.Create(FormMain.PageControlData) do
begin
PageControl := FormMain.PageControlData;
Name := 'ObjectName';
Caption := DeinForm.MediumArchivName;
end;
Für Memo
Code:
....
var MyMemo1: TMemo;
....
// MyMemo1 wird erstellt
MyMemo1 := TMemo.Create(self);
MyMemo1.Name := ObjectName;
MyMemo1.Parent := DeinForm.PageControlData.Pages[DeinForm.PageControlData.PageCount-1];
MyMemo1.Width := 100;
MyMemo1.Left := 10;
MyMemo1.Top := 10;
Für Button
Code:
....
var MyButton: TButton;
....
// MyButton wird erstellt
MyButton := MyButton .Create(self);
MyButton.Name := ObjectName;
MyButton.Parent := DeinForm.PageControlData.Pages[DeinForm.PageControlData.PageCount-1];
MyButton.Left := 50;
MyButton.Top := 50;
MyButton.OnClick:= MyButtonClick(Sender: TObject); //Deine Ereignisbehandlungsroutine
Alles mal so im Freiflug gecoded eben