Formular schliessen verhindern, wie?

[khh]

hallo zusammen,
ich möchte verhindern dass ein Formular über das X oben rechts ohne Abfrage geschlossen werden kann?
der msgdlg im onclose funtioniert ja nicht.
Wie kann ich das umsetzen?

danke Gruss KH

[implementation]

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := false;
end;

[daywalker9]

hi!

du kannst im FormCloseQuery bestimmen, ob die form geschlossen werden darf. Setzt du CanClose auf false, kann das Formular nicht geschlossen werden

Delphi-Quellcode:

procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := false;
end;

[khh]

Zitat von daywalker9:

hi!

du kannst im FormCloseQuery bestimmen, ob die form geschlossen werden darf. Setzt du CanClose auf false, kann das Formular nicht geschlossen werden

Delphi-Quellcode:

procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := false;
end;

vieleicht hab ich mich falsch ausgedrückt.
das Form kann über einen Button nach einer sicherheitsabfrage (msgdialog) geschlossen werden.
Die gleiche Abfrage möchte ich haben, wenn jemand aufs X drückt.


Gruss KH

[mkinzler]

Genau dafür ist ja der gepostete Code

[Luckie]

Impmentiere einfach das Ereignis OnCloseQuery und rufe mit der Schaltfläche nur die Methode Close auf.

[Noedel]

Ich glaube er sucht nach der Funktion "MessageDLG"...

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=false;
  If MessageDlg('Beenden?',MTConfirmation,[MbYes,MbNo],0)=MrYes then
    CanClose:=true;
end;

[Luckie]

Laut Aussage hat er das doch schon.

[freak4fun]

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var  CanClose: Boolean);
begin
  CanClose := MessageDlg('Beenden?',MTConfirmation,[MbYes,MbNo],0) = MrYes;
end;

[Noedel]

Zitat von Luckie:

Laut Aussage hat er das doch schon.

Dann hab ich die Problematik nicht verstanden

Zitat von freak4fun:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var  CanClose: Boolean);
begin
  CanClose := MessageDlg('Beenden?',MTConfirmation,[MbYes,MbNo],0) = MrYes;
end;

Ok, das ist noch etwas schöner