asynchrone Dialoge

[Rollo62]

Zitat von tbathelt:

Das ganze funktioniert zwar wie gewünscht, ist aber fürchterlicher Programmierstil - nur ist mir halt eben bislang dazu nix Besseres eingefallen.

Also generell, wenn man Code in der anonymen Prozedur schreibt,
dann ist alles schön beim Aufrufer zusammengefasst, und nicht über die ganze Unit verstreut.
Deshalb finde ich das eigentlich sehr aufgeräumten Code (sieht nur etwas unelegant aus, auf den ersten Blick).
Natürlich sollte man nicht zu viel darin machen, und man könnte weitere Aufgaben per Message anstossen.

Delphi-Quellcode:

...
begin
    if ARes=mrOk then
    begin
       ...
       MacheHierWas;
       ...
    end
    else
    begin
       ...
       MacheHierWasAnderes;
       ...
    end;
  end);