close 就是关闭窗口 closequery 就是关闭窗口前,询问是否真的要关闭! 执行顺序:closequery -》close 这样 你说会有什么区别呢
close直接关闭 closequery会把程序引导到OnCloseQuery在这里就可以添加一些询问之类的东西了,举个例子来说 ---------------------------------------- procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin SaveList;//保存某些数据 if MessageDlg('确定要退出网管中心软件吗?', mtConfirmation,[mbYes, mbNO], 0) = mrYes then begin application.Terminate;//关闭程序 end else CanClose:=False;//保持程序的执行 end;
closequery 就是关闭窗口前,询问是否真的要关闭!
执行顺序:closequery -》close
这样
你说会有什么区别呢
closequery会把程序引导到OnCloseQuery在这里就可以添加一些询问之类的东西了,举个例子来说
----------------------------------------
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
SaveList;//保存某些数据
if MessageDlg('确定要退出网管中心软件吗?', mtConfirmation,[mbYes, mbNO], 0) = mrYes then
begin
application.Terminate;//关闭程序
end
else CanClose:=False;//保持程序的执行
end;