Hallo
Kann mir jemand sagen wieso beim unten aufgeführten Code, das Programm nicht anhält?
Wenn ich einen Haltepunkt bei if MessageDlg... einfüge, erscheint die MessageBox. Wenn nicht, wird die else Bedingung ausgeführt (mrNo) und danach FormInstallationEndpunktAnschliessen.ShowModal ausgeführt.
Delphi-Quellcode:
if DrahtAnEndAngeschl <> KGrid1.RowCount - 2 then
begin
if MessageDlg('Sollen am Endpunkt nicht angeschlossene Drähte am Einschub angeschlossen werden?', mtWarning, [mbYes,mbNo], 1) = mrYes then
begin
EndAnzDrahtAngeschl:= KGrid1.RowCount - 2;
AlleDrahtEndAngeschl:= True;
end
else
begin
EndAnzDrahtAngeschl:= DrahtAnEndAngeschl;
AlleDrahtEndAngeschl:= False;
end;
end
else
KabelAnzDraht:= DrahtAnEndAngeschl;
FormInstallationEndpunktAnschliessen.ShowModal;
Macht irgendwie keinen Sinn.