form 的事件 closequery. procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=True; if adoquer1.State in [dsEdit, dsInsert] then begin if messagedlg('资料未保存,确定退出吗?',mtconfirmation,[mbyes,mbno],0)=mryes then begin adoquer1.Cancel; CanClose:=True; end else CanClose:=False; end;
end;
----------------------------------------------
I love the game!