Message Box

[PhöniX]

Zitat von MrKnogge:

lass das else einfach weg !

Deine MesageBox schliest sich von alleine.

Mal wieder zum Thema zurück..
Mit else weglassen gehts nicht, aber mit OnCloseQuery:

Delphi-Quellcode:

if MessageDlg('Sie müssen die auswahl durch OK bestätigen.'+#10#13+
   'Anwendung schließen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
    begin
     question := False;
     CanClose := True;
    end
    else
    CanClose := False;
    FormKonf.visible := true;
   end