|
Registriert seit: 23. Jan 2008
3.679 Beiträge
Delphi 2007 Enterprise
|
AW: Warnen vor dem schließen
22. Feb 2012, 09:48
Delphi-Quellcode:
procedure TForm1.OnCloseQuery(Sender: TObject; CanClose: Boolean);
begin
if MessageDlg('Echt schließen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
CanClose := false;
end;
Wäre ein einfacher und sauberer Weg.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
|