MessageDlg: Automatisch OK drücken?

[catweasel]

Moin

Ich habe hier ein Problem wo ich nicht recht weiterkomme.
Mögliche Fehler fange ich mit einem try-except Block ab, wobei ich im Fehlerfall einen Text mit MessageDlg ausgebe und die procedure verlasse. Das funktioniert auch soweit.

Problem: Wenn ich die Dialogbox nicht mit OK wegdrücke, stürzt das Programm das nächste mal ab wenn es an diese Programmstelle kommt.

Frage: Gibt es eine möglichkeit den OK-Button automatisch per Befehl zu drücken bevor ich an den try-except Block komme?

Code: Alles auswählen

try
  o := SO(Str.DataString).o['status'].o['service_status'];
except
  {todo:Hier Absturz wenn nicht OK gedrückt wird bis zum nächsten refresh}
  MessageDlg('Fehler'+chr(13)+Str.DataString,mtError, [mbOK], 0);
  exit;
end;

Gruß
Michael

[Socke]

Problem: Wenn ich die Dialogbox nicht mit OK wegdrücke, stürzt das Programm das nächste mal ab wenn es an diese Programmstelle kommt.

Welche anderen Möglichkeiten hast du denn sonst noch, damit dein Programm wieder an diese Programmstelle kommen kann, ohne dass du auf "OK" drückst? Soweit ich das sehe ist das nur das "X" im Fensterrahmen und das sollte (da du nur einen Button hast) mit "OK" identisch sein.

Die Fehlerursache ist also wahrscheinlich nicht der Dialog sondern liegt an irgendeiner anderen Stelle.

Frage: Gibt es eine möglichkeit den OK-Button automatisch per Befehl zu drücken bevor ich an den try-except Block komme?

Da der Message-Dialog in deinem Code-Beispiel in dem try-except-Block liegt ... Nein. Du kannst den OK-Button erst drücken, wenn er da ist -- und selbst das wäre vermutlich zu aufwendig.

Versuch's mal hiermit:

Code: Alles auswählen

try
  o := SO(Str.DataString).o['status'].o['service_status'];
except
  on Exception do
  begin
    MessageDlg('Fehler'+chr(13)+Str.DataString,mtError, [mbOK], 0);
    exit;
  end;
end;

[catweasel]

Danke für die Hinweise

Gruß und einen schönen Sonntag
Michael

[Antrepolit]

(...)

Code: Alles auswählen

try
  o := SO(Str.DataString).o['status'].o['service_status'];
except
  {todo:Hier Absturz wenn nicht OK gedrückt wird bis zum nächsten refresh}
  MessageDlg('Fehler'+chr(13)+Str.DataString,mtError, [mbOK], 0);
  exit;
end;

(...)

Du greifcst in deinem Except statt auf die Message der korrekten Exception (Sub-Typ) auf das (vermutlich) Fehlerverursachende Element Str zu. Was soll das?

[catweasel]

Du greifcst in deinem Except statt auf die Message der korrekten Exception (Sub-Typ) auf das (vermutlich) Fehlerverursachende Element Str zu. Was soll das?

Entschuldigung, ich verstehe nicht was Du meinst...
Kannst Du das noch genauer erleutern?

Gruß
Michael

[Hitman]

Angenommen str wäre nil, dann würde ein Zugriff auf str.DataString zu ner Exception führen. Du landest also im except Block deines try-except. Dort greifst du nun wieder auf das verursachende Element zu ... was soll da noch passieren? Es geht wieder schief.

Also nochmal gesagt: du solltest im except Teil NIE auf potenziell fehleranfällige Objekte/Variablen zurückgreifen. Vorzugsweise sollte dort nur aufgeräumt und Details ausgegeben werden ... aber wie gesagt: VORSICHT!

Wobei ich den Fehler trotzdem woanders vermuten würde, da du ja von "refresh" sprichst. Möglicherweise machst du irgendwas mit Fokus oder aktiven Controls, was während einem modalen Dialogaufruf (--> MessageBox) eventuell gegen die Wand läuft.

Edit: Das bringt mich drauf ... wie kann das Programm denn überhaupt ein zweites Mal an diese Stelle kommen, wenn das erste noch gar nicht wegegklickt wurde? Das klingt sehr nach einem Aufruf aus einem Thread heraus. Und das wiederum sollte und darf man nicht tun, denn die LCL ist nicht thread-sicher!