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

定义一个Form的私有变量FNeedSave用来表示Richedit是否被编辑过，FormLoad的时候让FNeedSave := false在Richedit的onchange事件里面增加 FNeedSave := true然后，这段代码一开始if not FNeedSave then exit;