Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.158 Beiträge
 
Delphi 10 Seattle Enterprise
 
#8

AW: Programmabsturz verursachen

  Alt 23. Okt 2017, 11:36
Ich hätte noch einen wo die Meldung von Windows schon kommt obwohl die Anwendung zu dem Zeitpunkt noch normal weiterläuft.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
   thread: TThread;
begin
   thread := TThread.CreateAnonymousThread(nil);
   thread.OnTerminate := handleThreadTerminate;
   thread.Start();
end;

procedure TForm1.handleThreadTerminate(Sender: TObject);
begin
   raise EProgrammerNotFound.Create('derp');
end;
  Mit Zitat antworten Zitat