UC知道delphi的初级问题，我的大问题
来源：百度知道 编辑：UC知道 时间：2024/06/27 11:26:03
我在窗体的event事件页中双击了OnClassQuery事件，然后写上
begin
if Application.MessageBox(‘您是否要关闭当前窗口？’，‘提示’，MB_YESNO)=IDYES then CanClose:=True else CanClose:=False;
end;
然后又全删了，还把procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);这条语句删了，保存之后，再也运行不了了。请问我该怎么回复到修改ONCloseQuery之前状态？谢谢！
begin
if Application.MessageBox(‘您是否要关闭当前窗口？’，‘提示’，MB_YESNO)=IDYES then CanClose:=True else CanClose:=False;
end;
然后又全删了，还把procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);这条语句删了，保存之后，再也运行不了了。请问我该怎么回复到修改ONCloseQuery之前状态？谢谢！
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
end;
把这再写回去.
在type中也写上
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
再把窗体的OnCloseQuery事件设为FormCloseQuery
保存之后，就无法恢复。重建工程，写上你原来的语句。
点保存，点确定，然后Ctrl+F9