Criar um form em tempo de execução e colocar 2 Edit
Caros amigos gostaria de saber como criar um form em tempo de execução e colocar ao mesmo tempo 2 edit.
Grato pela atenção.
Grato pela atenção.
Fernando
Curtidas 0
Respostas
Imoreira
16/12/2003
var
form2:tForm;
edt1:tEdit;
begin
form2:=tForm.Create(form2);
edt1:=tEdit.create(edt1);
edt1.parent:=form2;
edt1.left:=10;
edt1.Top:=10;
edt1:=tEdit.create(edt1);
edt1.parent:=form2;
edt1.left:=10;
edt1.Top:=30;
form2.Position:=poscreencenter;
form2.showmodal;
end;
form2:tForm;
edt1:tEdit;
begin
form2:=tForm.Create(form2);
edt1:=tEdit.create(edt1);
edt1.parent:=form2;
edt1.left:=10;
edt1.Top:=10;
edt1:=tEdit.create(edt1);
edt1.parent:=form2;
edt1.left:=10;
edt1.Top:=30;
form2.Position:=poscreencenter;
form2.showmodal;
end;
GOSTEI 0