Hi,
du zeigst einen Dialog an
Delphi-Quellcode:
...
Assistant1.MessageDlg(Msg, mtInformation, [mbOK], 0);
...
aber du fragst den Rückgabewert des Message-Dialoges nicht ab. Die
MessageDlg-Funktion gibt als Rückgabewert einen Integer zurück, für den es Konstanten gibt (mrOK, mrCancel, usw...).
Das könntest du so machen.
Delphi-Quellcode:
procedure IrgendEtwas;
var
iResult: Integer;
begin
iResult := MessageDlg(...);
if iResult = mrOK then
begin
// hier auf OK reagieren
end
else if iResult = mrCancel
begin
// hier auf Cancel reagieren
end
else
begin
// hier evtl. alle anderen Fälle
end;
end;
Ich hoffe ich hab die Frage richtig verstanden, ist nämlich etwas "schwammig" formuliert.
Dadurch rate ich jetzt mal dein Problem.
Gruss
BlackDragon