有沒有方法把下面這段代碼簡化一下?
procedure TfrmUseTime.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if btsave.Enabled then
case
application.MessageBox('有修改的數據沒有保存﹐要保存嗎﹖', '警告',
MB_YESNOCANCEL + MB_DEFBUTTON1) of
IDYES: btsave.OnClick(nil);
idno: btcancel.OnClick(nil);
idcancel: abort;
end;
end;
我有很多這樣的窗口﹐每一個窗口都要用這段代碼﹐我能不能把它簡化一點﹐不要每個單元里都要去寫這一段