Question

FormClose代码怎么改？delphi

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);var dialogvalue : integer;begin SaveDialog1.Filter := '*.txt|*.txt'; dialogvalue := messagedlg('是否保存文件？', mtconfirmation, [mbyes, mbno, mbcancel], 0); if dialogvalue = id_yes then begin if (savedialog1.Execute) or (savedialog1.FileName <> '') then begin SaveDialog1.FileName := ChangeFileExt(SaveDialog1.FileName,'.txt'); RichEdit1.Lines.SaveToFile(savedialog1.FileName); end; end; if dialogvalue = id_cancel then action := canone;end; 代码是这样可是没有在Richedit编辑也提示是否保存，这要怎么改呢。。

Answer 1

增加一个变量，比如isUpdate:boolean;
为richedit增加onChange事件，将isUpdate:=true;
在保存按钮中增加isUpdate:=false;
在FormClose事件中增加判断，if isUpdate then 提示;否则不提示保存

Answer 2

可以尝试其他方法，例如全局声明一个Boolean，再在Richedit加上Change事件，有内容变更就改下Boolean值，那么在FormClose时，只需要判断Boolean值即可。

Answer 3

加个编辑标志，编辑过标志为true，关闭时判断标志进行操作即可！