我想写了一个dll ,其中dll包括一个form,form上有二个按钮exit,ok,当单击ok 是调用返回的是1,当单击exit时,返回的是0,无论单击哪一个按钮,form都要关闭.

解决方案 »

  1.   

    叹,又是这个问题,留下E_Mail
      

  2.   


      按钮的cancel属性
      

  3.   

    我正做这个呢。帮帮你,
    library Clendar;uses
      SysUtils,
      Classes,
      forms,
      Unit1 in 'Unit1.pas' {Dllform};{$R *.res}
    function ShowCalendar(AHandle:THandle;ACaption:string):TDateTime;
             stdcall;
    var
     DllForm:TDLLForm;
    begin
     Application.Handle:=AHandle;
     DllForm:=TDLLForm.Create(Application); //创建并显示窗体
     try
      DllForm.Caption:=Acaption;
      Dllform.ShowModal;//显示方式为模式化必须摸显示才能停留。
      result:=Dllform.dtime;//返回设定日期
     finally
      DllForm.Free;//用完后卸载该窗体
     end;
    end;exports ShowCalendar;//引出函数begin
    end.DLL窗体
    var
      Dllform: TDllform;implementation{$R *.dfm}procedure TDllform.OKBtnClick(Sender: TObject);
    begin
      dtime:=calendar1.CalendarDate;
    end;procedure TDllform.CancelBtnClick(Sender: TObject);
    begin
     dtime:=now;
    end;------
    一看就会!