Hallo erstmal,
ich erstelle mir mit CreateMessageDialog mein eigenen Dialog und ändere gegebenfalls die Beschriftung einzelner Buttons. Dieser Dialog wird aufgerufen aus einer Komponente im "Destroy". Wenn sich etwas geändert hat, dann soll der Benutzer sagen ob er speichern will oder nicht.
Codeauszug:
Delphi-Quellcode:
Form := CreateMessageDialog(Msg, DlgType, Buttons);
try
if not Assigned(Form) then
begin
exit;
end;
with Form do
try
//..Code (Beschriftung ändern...
Result := ShowModal;
finally
Free;
end;
except
on E: EReadError do
begin
MessageBeep(MB_ICONASTERISK);
end;
end;
Diese Funktion gibt ein Integer zurück und wird auf "mrYes" geprüft.
Manchmal (warum auch immer), kommt er in die
Exception EReadError und sagt Stream-Lesefehler.
Mache ich da etwas grundlegendes falsch?
Wäre nett wenn ihr ein Tip hättet...
MFG
Alex