in Laufzeit Objakt hinzufügen

**Remote1**

wie kann man während der laufzeit ein objekt in die form hinzufügen?

**Remote1**

keiner ne idee wie ich ein edit feld oder eine checkbox einfügen kann (kann ja auch bei oncreate geschehen)

**Leuselator**

z.B. mit:

Delphi-Quellcode:

			Var MeinEdit : TEdit;

procedure TForm1.FormCreate(Sender: TObject);

begin

  MeinEdit := TEdit.Create(TForm1);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

  MeinEditFreeAndNil(MeinEdit);

end;

**Remote1**

könnt das so gehn:

zusammenfalten · markieren

Delphi-Quellcode:

			var MyButton: TButton;

begin

  MyButton := TButton.Create(Form1);

  with MyButton do begin

    Parent := Form1;

    Height := 32;

    Width := 128;

    Caption := 'Neuer Button';

    Left := 50;

    Top := 50;

    OnClick:=ButtonXClick;

  end;

end;

**Leuselator**

wenn Du vorher irgendwo in dieser Unit
procedure TForm1.ButonXClick(Sender:TObject) deklariert hast sollte das so gehen...

**Jens Schumann**

Zitat von Leuselator:

z.B. mit:

zusammenfalten · markieren

Delphi-Quellcode:

			Var MeinEdit : TEdit;

procedure TForm1.FormCreate(Sender: TObject);

begin

  MeinEdit := TEdit.Create(TForm1);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

  MeinEditFreeAndNil(MeinEdit);

end;

Ein Freigeben von MeinEdit ist hier nicht notwendig.
Durch den Paramter Form1 in MeinEdit := TEdit.Create(Form1); wird das Formular zum Besitzer
des Objektes/Komponente. In diesem Fall kümmert sich das Formular um die Freigabe.

**Leuselator**

Recht hast Du Jens, aber unser (Delphi-)junger Freund hier scheint mir auf dem besten Wege, selbst dynamisch Controls in eigenen Routinen/Komponenten zu erzeugen und dort spätestens tauchen die ersten Schutzverletzungen oder Speicherleaks auf. Daher @Remote1: Wenn der Owner mal kein Form, sondern eine Komponente von Dir sein sollte, dann immer im OnDestroy daran denken, die dynamisch erzeugten Objecte wieder freizugeben.

**Remote1**

ich hab jetz eigentlich nur noch ein paar kleine probleme:
und zwar ist das allen ziemlich langwierig (muss ne menge obj erstellen und das dauert)
kann man das nicht irgendwie verschnellern bzw die obj verankern (werden bei mir auf registrierkarte erstellt und bei einem change sind die ja dann wieder weg --> deshalb hab ich bei onchange das ganze drin, damit die halt wieder erstellt werden)

**Leuselator**

¿?
(zeig mal 'n bischen Code...)

**Remote1**

zusammenfalten · markieren

Delphi-Quellcode:

			procedure cedit(ort:tcomponent; par:twincontrol; jahr:string; x,y:integer);

var MyEdit: TEdit;

begin

  MyEdit := TEdit.Create(ort);

  with MyEdit do begin

    Parent := par;

    Height := 21;

    Width := 33;

    Text := jahr;

    Left := x;

    Top := y;

  end;

end;

und das dann bei onchange (bzw extra procedure

markieren

Delphi-Quellcode:

			 for i:=1 to 5 do

  cedit(Form2.PageControl1, Form2.PageControl1, inttostr(1872+i), 16,32+32*i);

 for i:=1 to 34 do

  cedit(Form2.PageControl1, Form2.PageControl1, inttostr(1884+i), 16,160+32*i);

aber nach dem erstellen will ich alle edit felder auch wieder auslesen und ich hab keine ahnung wie ich die ansprechen soll (edit1 geht ja wohl nicht)

ach ja, das alles soll ne art datenbank werden
ich les halt aus einer ini datensätze aus und dementsprechend werden dann die obj erstellt

in Laufzeit Objakt hinzufügen

in Laufzeit Objakt hinzufügen

Re: in Laufzeit Objakt hinzufügen

Re: in Laufzeit Objakt hinzufügen

Re: in Laufzeit Objakt hinzufügen

Re: in Laufzeit Objakt hinzufügen

Re: in Laufzeit Objakt hinzufügen

Re: in Laufzeit Objakt hinzufügen

Re: in Laufzeit Objakt hinzufügen

Re: in Laufzeit Objakt hinzufügen

Re: in Laufzeit Objakt hinzufügen

Forumregeln

Remote1 Registriert seit: 22. Okt 2003 Ort: Dippoldiswalde 252 Beiträge Delphi 6 Personal	#1 in Laufzeit Objakt hinzufügen 5. Jan 2004, 08:23 wie kann man während der laufzeit ein objekt in die form hinzufügen?
	Zitat

Remote1 Registriert seit: 22. Okt 2003 Ort: Dippoldiswalde 252 Beiträge Delphi 6 Personal	#2 Re: in Laufzeit Objakt hinzufügen 6. Jan 2004, 06:23 keiner ne idee wie ich ein edit feld oder eine checkbox einfügen kann (kann ja auch bei oncreate geschehen)
	Zitat

Remote1 Registriert seit: 22. Okt 2003 Ort: Dippoldiswalde 252 Beiträge Delphi 6 Personal	#4 Re: in Laufzeit Objakt hinzufügen 6. Jan 2004, 06:29 könnt das so gehn: zusammenfalten · markieren Delphi-Quellcode: var MyButton: TButton; begin MyButton := TButton.Create(Form1); with MyButton do begin Parent := Form1; Height := 32; Width := 128; Caption := 'Neuer Button'; Left := 50; Top := 50; OnClick:=ButtonXClick; end; end;
	Zitat

Leuselator Registriert seit: 18. Mär 2003 Ort: Berlin 589 Beiträge Delphi 8 Architect	#9 Re: in Laufzeit Objakt hinzufügen 8. Jan 2004, 08:14 ¿? (zeig mal 'n bischen Code...) Tim Leuschner Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
	Zitat