Nein, es sei denn TKGrid macht das.
Was ich jetzt aber entdeckt habe ist, dass die Messagebox ganz kurze Zeit erscheint und danach gleich wieder verschwindet.
Ich habs jetzt mal so ausprobiert:
Delphi-Quellcode:
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;
Das Programm führt immer nur die mrNo Anweisung durch.
Ich habe auch mrYes, mrNo und MessageDlg nirgens überschrieben.