MessageDlg Programm läuft weiter

[daniel71]

Das hier funktioniert:

Delphi-Quellcode:

if DrahtAnEndAngeschl <> KGrid1.RowCount - 2 then
begin
  MessageDlg('Blabla?', mtWarning, [mbYes,mbNo], 1);
  case MessageDlg('Sollen am Endpunkt nicht angeschlossene Drähte am Einschub angeschlossen werden?', mtWarning, [mbYes,mbNo], 1) of
  mrYes:
    begin
      EndAnzDrahtAngeschl:= KGrid1.RowCount - 2;
      AlleDrahtEndAngeschl:= True;
    end;
  mrNo:
    begin
      EndAnzDrahtAngeschl:= DrahtAnEndAngeschl;
      AlleDrahtEndAngeschl:= False;
    end;
  end;
end
else
  KabelAnzDraht:= DrahtAnEndAngeschl;
FormInstallationEndpunktAnschliessen.ShowModal;

Die MessageBox mit 'Blabla?'' wird nicht angezeigt.