Einzelnen Beitrag anzeigen

Benutzerbild von Nico Lausch
Nico Lausch

Registriert seit: 8. Jan 2004
6 Beiträge
 
#2

Re: Memo zur laufzeit Kreieren und schliessen

  Alt 20. Jan 2004, 15:21
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
Nico Lausch / dot de
Project [Visual.Play!ground]

East - Germany, Magdeburg
  Mit Zitat antworten Zitat