Schließen der Form verhindern

[Lefko]

Hallo Freunde ,

Also ihr kennt das ja, wenn man auf das kleine "Schließen"-Kreuz oben rechts klickt, soll gefragt werden, ob wirklich beendet werden soll (in einem MessageDlg)

Aber wie kann ich das denn machen?

Wenn ich diesen Dialog in das Form1.OnClose setze, ist es ja schon zu spät!

Wie mache ich das richtig?

MfG Lefko.

[hboy]

gug mal bei OnClose. du kannst das Abfangen .moment mal noch

[flomei]

CanClose ist das Zauberwort...
Das könnte man mit einem MessageDlg verbinden und fertig...

MfG Florian

[hboy]

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var msgresult : integer;
begin
  msgresult := 7;
  if levelchanged then
  msgresult := application.MessageBox('Wirklich schliessen?','Beenden',mb_yesno);
  // no: 7 yes: 6
  if msgresult = 6 then
  begin
    Action := caNone;
  end;
end;

Edit: Delphi-tags das Luckie nich motzt *gg*

[SirThornberry]

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if mrYes <> MessageDlg('wirklich schließen', mtConfirmation, [mbYes, mbNo], 0) then
   Action := caNone;
end;

[Lefko]

WUPPDI ging das schnell!

Vielen Dank, wahr wohl sehr einfach

(Sorry, ich hätte succhen sollen.. )

MfG Lefko

[Stanlay Hanks]

Alternativ kann man es auch im "OnCloseQuery" Ereignis des Forms machen, wie flomei schon angesprochen hat, weil da die Variable "CanClose" existiert.

Man liest sich, Stanlay

[Neg]

OnCloseQuery ist sinnvoller. Bei OnClose ist es im Grunde schon "zu spät".