双击TPageControl上的TButton报错：无法找到方法实现

问题核心原因 #

你手动添加的按钮仅在类外写了全局过程声明，但缺少类内部的方法声明，且实现部分没有绑定到类的限定符，导致IDE无法识别这些方法是窗体类的事件处理程序。

具体修复步骤 #

1. 补全类内部的方法声明

在TForm3类的接口定义中，给每个报错的按钮添加对应的OnClick方法声明（和前3个按钮的写法一致）：

type
  TForm3 = class(TForm)
    pgc: TPageControl;
    pgclogin: TTabSheet;
    lblname: TLabel;
    lblsurnaME: TLabel;
    edtname: TEdit;
    EDTSUR: TEdit;
    btncontinue: TButton;
    pgcdiff: TTabSheet;
    rpgdiff: TRadioGroup;
    pgcsun: TTabSheet;
    btn1q1: TButton;
    btn1q2: TButton;
    btn1q3: TButton;
    btn1q4: TButton;
    btn1q5: TButton;
    btn1q6: TButton;
    btn1q7: TButton;
    btn1q8: TButton;
    btn1q9: TButton;
    mem1: TMemo;
    pgcmercury: TTabSheet;
    Btn2q6: TButton;
    // --- 添加以下方法声明 ---
    procedure btn1q4Click(Sender: TObject);
    procedure btn1q5Click(Sender: TObject);
    procedure btn1q6Click(Sender: TObject);
    procedure btn1q7Click(Sender: TObject);
    procedure btn1q8Click(Sender: TObject);
    procedure btn1q9Click(Sender: TObject);
    procedure Btn2q6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

2. 修正实现部分的方法格式

在implementation块中，实现方法必须加上TForm3.类限定符，不能只写全局过程声明：

implementation

{$R *.dfm}

// 原正常的3个方法（示例）
procedure TForm3.btn1q1Click(Sender: TObject);
begin
  // 你的逻辑代码
end;

// 新增按钮的方法实现（示例）
procedure TForm3.btn1q4Click(Sender: TObject);
begin
  // 你的逻辑代码
end;

procedure TForm3.btn1q5Click(Sender: TObject);
begin
  // 你的逻辑代码
end;
// 其他按钮方法同理补全

你之前手动写的procedure btn1q4Click(Sender: TObject);属于全局过程，不是窗体类的成员方法，IDE无法关联到按钮的事件。

3. 检查并绑定事件

1. 选中报错的按钮，打开Object Inspector的Events标签页
2. 找到OnClick事件，在下拉列表中选择对应的TForm3.xxxClick方法
3. 如果下拉列表中没有目标方法，先保存并编译一次项目，IDE会自动识别类内声明的方法

4. 清理IDE缓存（可选）

如果仍报错，关闭Delphi，删除项目目录下的.dcu文件和.local文件夹，重新打开项目编译，解决缓存导致的识别异常。

内容的提问来源于stack exchange，提问作者PurpleTurtle PLAYZ