TEdit zur lauf erzeugen und anzeigen

[ice]

hi leute...

ich hab da mal wieder nen kleinen rätsel....und hoffe, das mir her jemand helfen kann...

<pre>
procedure TForm3.Button1Click(Sender: TObject);
var
z: Integer;
mp: String;
edit: array[1..20] of TEdit;
begin
//Anzahl der Teilaufgaben abfragen
InputQuery('Teilaufgaben','Wieviele teilaufgaben sollen berücksichtigt werden?',ata);
//max. Punkte je Aufgabe
for z:=1 to StrToInt(ata) do
begin
mp:='';
InputQuery('Werte angeben','max. Punkte der '+IntToStr(z)+'. Aufgabe',mp);
edit[z]:=TEdit.Create(self);
edit[z].Width:=30;
edit[z].Height:=24;
edit[z].Text:=mp;
end;
end;
</pre>

wenn ich diesen code laufen lasse...dann ist leider kein editfeld mit vorgegebener größe sichtbar....

wieso nicht????

kann mir das jemand sagen???

danke schon jetzt für eure mühen....

mfg
ice

[Andreas Horlaender]

TEdit stammt von TComponent ab und benötigt einen Owner, z.b. ein Panel oder die Form.

ein Beispiel kommt gleich..

[Andreas Horlaender]

<pre>
With TEdit.Create(self) do
begin
parent := self;
name := 'Edit2';
SetBounds(1,2,75,25);
end;
</pre&gt

[ice]

ich danke dir....

das hat prima geklappt ;-)

besten dank und nen schönen abend noch ;-)

mfg
ic