如何取得弹出窗口的返回值？

Question

要实现的目的是：
    在用户输入数据的过程中，根据需要弹出一个窗口让他选择，完成之后取得用户选择的值，请问应该如何实现？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
   s:=inputbox('','','1');
end;

Answer 2

form1主
form2弹出
在form1的public里 定义变量 var param:string;
form2 
  uses unit1;
  form2的按钮点事件里写
   form1.param:=form2.edit1.text;
ok

Answer 3

用一个function 实现.用result返回即可function aaa(s:string..):string;
var f:tform1;
begin
  f:=Tform1.create(nil);
  f.showmodal;
  if f.modalresult=mrok then 
  begin
   result:=f.edit1.text;
  end;
end;

Answer 4

你说的弹出窗口是指showmessage还是其它系统自带的弹出窗口？如果是自己的定义的话，可以在谈出窗口的FORM里定义函数用来获取输入值，在showmodal之后，form销毁之前调用这个函数就可以获取输入值了啊！