我在应用程序Oncreate的时候,调用dll显示一个窗体,请问我怎样在窗体上
通过点击一个按钮关闭整个程序?

解决方案 »

  1.   

    我已经把应用程序的Handle传递给Dll中的窗体了,但是当我在dll中调用Application.Terminate;的时候就会出错!那位高手能指点一下。在线等待
      

  2.   

    窗体要动态创建,然后在button事件里调用self.Free就Ok
      

  3.   

    是这样的,我在工程文件里引用dll;
    program Project2;uses
      Forms,
      Unit1 in '..\test2\Unit1.pas' {Form1};{$R *.res}
    procedure ShowRegForm(AHandle: THandle);stdcall;external 'ProductReg.dll';begin
      Application.Initialize;
      ShowRegForm(Application.Handle);
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    end.dll文件:procedure ShowRegForm(AHandle: THandle);export;
    begin
      Application.Handle := AHandle;
      Frm_RegForm := TFrm_RegForm.Create(Application);
      Frm_RegForm.ShowModal;
    end;
    我在dll的Form中调用Application.Terminate;就会出错!
    那应该怎样写呢?
      

  4.   

    我再概括地把问题说一遍:
    我想在主程序创建前调用一个dll里的注册窗体,当在注册窗体内点击退出时,
    我要把dll和应用程序都关闭,谁能给出关键代码?在线等待!