我的 tpagecontol 上有多个按钮。第一页控件的前 3 个有效(当我双击时,它会将我带到他们的程序(程序 TForm3.btn1q1Click(Sender: TObject);)),但之后它给了我上述错误,我查看了“类型”代码并意识到它列出了所有这样的按钮:
我查看了“类型”代码,发现它列出了所有这样的按钮:
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 btn1q5Click(Sender: TObject);
但它仍然给出了这个错误。 我该怎么办我完全迷失了
有时,如果 *.pas 文件包含奇怪(不可见)字符,则可能会出现此错误。 也许您可以使用文本编辑器来显示不可见的控制代码,然后将其删除。当然,请先备份 *.pas 文件,以免损坏其他内容。
https://en.delphipraxis.net/topic/11014-ummmm-what/?do=findComment&comment=87699