Gracias por tu ayuda; tu consejo funcionó a la perfección, no obstante encontré una solución alternativa:
function TPersona.GetData: boolean;
var
Ventana: TForm;
edt_Name: TEdit;
btn_OK: TButton;
begin
Ventana:=TForm.Create(Self);
edt_Name:=TEdit.Create(nil);
edt_Name.Parent:=Ventana;
btn_OK:=TButton.Create(nil);
with btn_OK do
begin
Left := 56;
Top := 16;
Width := 75;
Height := 25;
Caption := 'Pulse Aqui';
TabOrder := 0;
Parent :=Ventana;
end;
Ventana.ShowModal;
Execute:=True;
end;
Otra vez: Muchas Gracias!
|