各位前輩，小弟有一問題請教： procedure TfmMatepro.FormClose(Sender: TObject; var Action: TCloseAction); begin if DataSource1.Dataset.state in [dsInsert,dsEdit] then begin Showmessage('你的数据尚未保存，不能退出！'); end else action:=cafree; end; 小弟的程序完成的功能是如果數據集處於Insert和Edit的狀態時，自窗口不能關閉，但是出現了這樣的事情，在彈出的Message窗口按了確定後，子窗口會最小化，我現在不知道是什麽問題？請各位前輩指教。謝謝！ 我是菜鳥，請多指點！ 不勝感激！！

這個不應寫在 onClose 事件，而應寫在 onCloseQuery 事件    

if DataSource1.Dataset.state in [dsInsert,dsEdit]
  then
  begin
    Showmessage('你的数据尚未保存，不能退出！');
    CanClose := false;
  end
  else
    CanClose := true;

謝謝，問題解決了。 我是菜鳥，請多指點！ 不勝感激！！