2 2tt1314 Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-13 #1 procedure TForm1.Form1DbClick(Sender: TObject); begin close; end; 上面的不能编译..应该如何使用呢 ?
银 银雨辰 Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-13 #2 procedure TForm1.FormDblClick(Sender: TObject); begin Close; end; FormDblClick！
2 2tt1314 Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-13 #3 还是不行啊... [Error] Unit1.pas(37): Undeclared identifier: 'FormDblClick' [Error] Unit1.pas(37): ';' expected but '(' found [Error] Unit1.pas(39): '(' expected but ';' found [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
还是不行啊... [Error] Unit1.pas(37): Undeclared identifier: 'FormDblClick' [Error] Unit1.pas(37): ';' expected but '(' found [Error] Unit1.pas(39): '(' expected but ';' found [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
L liyinwei Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-13 #4 1.删除你的代码 procedure TForm1.Form1DbClick(Sender: TObject); begin close; end; 2.在窗体的 Object Inspector 窗口的 Events 页双击 OnDblClick 的空白处 就会出现 procedure FormDblClick(Sender: TObject); type TForm1 = class(TForm) procedure FormDblClick(Sender: TObject); //没有这一句就会出错 private { Private declarations } public { Public declarations } end;
1.删除你的代码 procedure TForm1.Form1DbClick(Sender: TObject); begin close; end; 2.在窗体的 Object Inspector 窗口的 Events 页双击 OnDblClick 的空白处 就会出现 procedure FormDblClick(Sender: TObject); type TForm1 = class(TForm) procedure FormDblClick(Sender: TObject); //没有这一句就会出错 private { Private declarations } public { Public declarations } end;
