jiangyuxuan

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理
利用以下方法:
在form1里面编写函数:
function ExecuteForm1(var S : string) : word;
var
    Form1 : TForm1;
begin

    Form1 := TForm1.createform(application);
    result := form1.showmodual;
    try
    if result = mrOK then
    begin
        S := 'OK';
    end;
    finally
    form1.free;
    end;
    
end;

在form1中添加按钮button,在click事件里写代码:
procedure Button1Click(sender:TObject);
begin
    ModalResult := mrOk;
end;

//-----------------------------------------------------------------

在form2里面调用(首先必须uses form1单元),例如在Button1的click事件里
procedure Button1Click(sender:TObject);
var
    S:string;
begin
    if form1.ExecuteForm1(S) = mrOK then
    begin
    showmessage(S);
    end;
end;
posted on 2008-12-18 23:07  江宇旋  阅读(744)  评论(0编辑  收藏  举报