delphi中cannot find implementation of method...

delphi中cannot find implementation of method .....

使用一个自定义的函数/过程之前，要在代码中的implementation区域给函数做一个声明

例如：
type中：
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

这样就声明了一个过程

您可以把光标定位到这上面声明语句上，然后按下Ctrl+Shift+C，编译器会自动在implementation区域为您生成这个过程活函数的代码块如下：
implementation中：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

end;

一般出现这种情况是因为直接复制其他窗口到新窗口