天啊!
不出错才奇怪!
在Form2中把自己给Free了!

解决方案 »

  1.   

    这样就可以了:
    procedure TForm2.Button1Click(Sender: TObject);
    begin
      Close;
    end;
    //如果Form2是MDIChild,则加上以下:
    procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      Action := caFree;
    end;
      

  2.   

    如果你用键盘操作是不会出错的,
    form当然可以把自己释放拉,那只是代码,
    释放的是窗体的资源,怎么会出错呢?
    现在是用鼠标操作会出错,但是键盘就好得很了.
      

  3.   

    var
      Form2: TForm2;
      I: Integer; //将I声明在这里
      

  4.   

    zswang(伴水)(需要充充电):
      现在是用鼠标操作会出错,但是键盘就好得很了.
    我想知道那有什么区别的