Einzelnen Beitrag anzeigen

Medium

Registriert seit: 23. Jan 2008
3.406 Beiträge
 
Delphi 2007 Enterprise
 
#2

AW: Warnen vor dem schließen

  Alt 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)
  Mit Zitat antworten Zitat