声明函数的时候不用Tfom_Download,直接声明就可以了。
如
public
procedure bitBtn1Click(Sender: TObject);
end;
procedure Tfom_Download.bitBtn1click(Sender: Tobject);
begin
close;
end;
如
public
procedure bitBtn1Click(Sender: TObject);
end;
procedure Tfom_Download.bitBtn1click(Sender: Tobject);
begin
close;
end;
procedure bitBtnClick(Sender:TObject);
...
...下面这行在创建bitBtn1后加上
bitBtn1.OnClick := bitBtnClick;procedure TFfom_Download.bitBtnClick(Sender:TObject);
begin
close;
end;