关于函数执行和窗体的问题。

Question

如果在某一个函数执行的过程中，需要弹出一个窗体，并且取得该窗体上的参数，例如在表单中填写了什么内容，或者选择了哪几个选项，应该怎么做？

Answer 1

function fun():Boolean;
begin
  with TFrmSetup.Create(nil) do 
  begin
    if ShowModal=mrOK then
    begin
       self.Edit1.text := Edit1.text;
       Result := True;
    end else
       Result := False;
  end;
end;

Answer 2

楼上方法OK
你也可以在你第二FORM里的PUBLIC下定义变量

Answer 3

function fun_show(i:intger):Boolean;
var
  Myform:TFrmSetup;
begin
  Myform := TFrmSetup.Create(nil);
  if i= 1 then
     Myform.edit1.text ='1' 
  else
     Myform.edit1.text ='其余';
  Myform.showmodal;
  Myform.free; end;