声明函数的时候不用Tfom_Download,直接声明就可以了。

public
  procedure bitBtn1Click(Sender: TObject);
end;
procedure Tfom_Download.bitBtn1click(Sender: Tobject);
begin
  close;
end;

解决方案 »

  1.   

    谢谢taxi(游少爷) ,不过我试过了,把声明中的Tfom_Download去掉还是不行,怎么办?
      

  2.   

    type
      procedure bitBtnClick(Sender:TObject);
    ...
    ...下面这行在创建bitBtn1后加上
    bitBtn1.OnClick := bitBtnClick;procedure TFfom_Download.bitBtnClick(Sender:TObject);
    begin
      close;
    end;
      

  3.   

    谢谢GreensPan(GreensPan),你的方法是对的,非常感谢你的帮助,同时也谢谢taxi(游少爷)!!!