如何让form带参数返回

Question

传入一个变量，关闭时反回另一个变量

Answer 1

PORCEDURE FORM1SHOW(S: STRING;VAR SS: STRING);
BEGIN
  WITH TFORM1.CREATE(NIL) DO
  BEGIN
    TRY
      CAPTION := S;
      SHOWMODAL;
    FINALLY
      SS := '$#@%$@%$#@%$';
      FREE;
    END;
  END;
END;不知道楼主是不是向要这个

Answer 2

最简单的方法：在界面上放一个lable，属性设为隐藏！
创建界面，调用完毕后，close，取出lable的值后，再Destroy

Answer 3

晕死，上楼的还真不赖哦，这样的方法也想得出来.
你可以用一个class function 来实现,让他返回一个值
在这个函数里面创建窗体，并显示执行完就返回一个值

Answer 4

if showmodal = 有返回值 then
begin
end

Answer 5

if form1.showmodal = 有返回值 then
begin
end