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;

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

……………………………………………………………………………………………………………………

呵呵，我的是因为少了一个end;

Unit找不到结尾，也就没办法添加控件操作函数的implementation部分。受教