公用函数:
procedure CloseForm(Form:TForm);
begin
form.Close();
endonclick:
CloseForm(self);

解决方案 »

  1.   

    ok >>easypaper is very good  
      

  2.   

    easypaper 的方法是不行的。我一开始就是这样作的。
    补充一点:调用的窗口是模态窗口。
      

  3.   

    在另一UNIT里调用API,把本窗口的HANDLE传过去总可以了吧
      

  4.   

    调用的窗口是模态窗口,可这么于
    procedure CloseForm(Form:TForm);
    begin
    //form.Close();
      Form.Free;
    或Form.Release;
    endonclick:
    CloseForm(self);
      

  5.   

    我试过了可以的,上面的语句应该是这样的:
    procedure CloseForm(Form:TForm);
    begin
     form.Close;
    endonclick:
    CloseForm(self);