procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1:=TEdit.Create(Form1);
Edit1.Left:=50;
Edit1.Top:=50;
Edit1.Text:='Test';
Edit1.Color:=clYellow;
edit1.Parent:=form1;//
Edit1.Show;
end;
begin
Edit1:=TEdit.Create(Form1);
Edit1.Left:=50;
Edit1.Top:=50;
Edit1.Text:='Test';
Edit1.Color:=clYellow;
edit1.Parent:=form1;//
Edit1.Show;
end;
up up