[代码]窗体关闭时提示变动的保存

如果窗体有数据操作,在未保存时关闭窗体,进行一个提示。 procedure TFrmSave.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //窗体关闭时提示变动的保存 begin if ADODataSet1.State in [dsInsert, dsEdit] then begin if MessageBox(0, '发现未保存的数据,需要保存吗?', '', MB_YESNO + M