Guten Abend zusammen,
könnte mir bitte jamand dabei einen Tipp geben! Ich beschäftige mich gerade mit dem Dynamischen Erzeugen der Komponenten. Die folgende procedure erzeugt 20 Edits, die will ich aber in einem z.B. GroupBox1 stehen haben und nicht einfach auf dem Form1. Wie soll ich das zuweisen?
Delphi-Quellcode:
private
FEdits: Array of TEdit;
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
SetLength(FEdits, 20);
for i:=0 to 19 do
begin
FEdits[i] := TEdit.Create(self);
with FEdits[i] do
begin
parent := self;
left := 400;
top := i * 25;
name := 'edit'+IntToStr(i);
text := name;
end;
end;
end;
Danke für jede Hilfe..
Gruss mfs