找不到方法的实现部分

 

 

找不到方法的实现部分

 

从别的窗体拷过了的一个按钮，在双击它，准备写它的点击事件的时候，报：找不到该方法的实现部分,该方法不完整；

 

于是查看代码，发现在接口部分，有 procedure btn1Click(Sender: TObject);该声明，

而在实现部分，即implementation部分，没有该事件的具体实现；

 

解决方法一：

 

 1. 将声明部分删除，即删除procedure btn1Click(Sender: TObject);该声明； 解决；

 

解决方法二：

 2. 在实现部分，给该事件写个实现；

即：

  procedure formname.btn1Click(Sender: TObject);

  begin

    //

  end;