双击 TButton 出现错误：找不到方法的实现

Question

我的

TButton

上有多个

TPageControl

。前 3 个工作正常，当我双击它们时，IDE 将我带到他们的程序（即

procedure TForm3.btn1q1Click(Sender: TObject);

），但其余的却给了我这个错误：

找不到方法的实现

我查看了

type

代码，发现它列出了所有这样的按钮：

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;

但只列出了第 1 个 3（工作中的）：

procedure btn1q1Click(Sender: TObject);
procedure btn1q2Click(Sender: TObject);
procedure btn1q3Click(Sender: TObject);

我又手动添加了2个：

procedure btn1q4Click(Sender: TObject);
procedure btn1q5Click(Sender: TObject);

但它仍然给出该错误。

我能做什么？我完全迷失了。

Answer 1

有时，如果 *.pas 文件包含奇怪（不可见）字符，则可能会出现此错误。 也许您可以使用文本编辑器来显示不可见的控制代码，然后将其删除。当然，请先备份 *.pas 文件，以免损坏其他内容。

https://en.delphipraxis.net/topic/11014-ummmm-what/?do=findComment&comment=87699