ایجاد شی هنگام اجرا

[mikrob]

سلام دوستان عزیز
یه سوال؟ :متفکر:
می خوام تو فرمم یک کلید ADD داشته باشم که هر وقت میزنیش یه button یا edti یا هرچیزی به فرم اضافه به شه؟
(دلفی7)

[Ananas]

سلام

procedure TForm1.Button1Click(Sender: TObject);
{$J+}
const currentPos : TPoint = (X:0; Y:0);
var
ed : TEdit;
begin
ed := TEdit.Create(Self);
ed.Parent := Self;
ed.Left := currentPos.X * 120;
ed.Top := currentPos.Y * 20;
Inc(currentPos.Y);
if ((currentPos.Y mod 10) = 9) then
begin
currentPos.Y := 0;
Inc(currentPos.X);
end;
end;