TThread und Exceptions

[DerDan]

Ich hab gute Erfahrungen mit der folgenden Konstruktion gemacht:

Delphi-Quellcode:

procedure TThreadA.SyncException;
begin
  Application.MessageBox (pchar (ExceptionString) , 'Exception', MB_OK);
end;


procedure TThreadA.Execute;
begin
  try
    ...
  except
    on E: Exception do begin
      ExceptionString := E.Message;
      Synchronize (SyncException);
    end;
  end;
end;

dabei ist ExceptionString eine Variable des Thread


mfg

derDan