问一个在关闭窗口时提示的问题 在线等

Question

1、如何判断用户没有存盘就退出了程序。
2、如何弹出窗口让用户选择是否继续
望有这方面经验的朋友帮帮我

Answer 1

在FormOnClose内判断，用MESSAGEBOX来询问用户，如果不关闭Action:=caNone

Answer 2

onclose里
Result := Application.MessageBox('关闭吗?', '关闭提示信息', MB_YESNOCANCEL);
if Result = IDYes then //关闭机器
begin
end
else
begin
end;

Answer 3

设置modify标志，当用户修改数据时，modify 标志为true ,如果用户选择保存，将modify 标志置为false。退出时判断modify 标志，vc中的achive本身又该标志，没有用过delphi的文件类型，而且也不知道你用的什么方式，但是原理都是一样的。
对于弹出窗口上面已经说过了。

Answer 4

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Table1.State in [dsEdit, dsInsert] then
    if MessageDlg('数据没有保存,是否继续?',
      mtConfirmation, [mbYes, mbNo], 0) = mrNo then
      Abort;
end;