Criar um form em tempo de execução e colocar 2 Edit
16/12/2003
0
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
Curtir tópico
+ 0
Responder
Posts
16/12/2003
Imoreira
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)