Memo zur laufzeit Kreieren und schliessen

[Nico Lausch]

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