Ich starte einen Neben-Thread mit:

markieren

Delphi-Quellcode:

  LThread := TThread.CreateAnonymousThread(
    procedure
    begin
      // Tu etwas
    end;

Wie kann ich im Haupt-Thread benachrichtigt werden, wenn der LThread beendet ist?

Du kannst dem OnTerminate des Threads eine entsprechende Methode zuweisen.

https://docwiki.embarcadero.com/Libr...ad.OnTerminate

Oder z.B. mit try-finally, in der Prozedur, am Ende deine Rückantwort.



PS, bei dir kommt dort nie eine Antwort, falls da nicht nicht noch ein Start kommt.

markieren

Delphi-Quellcode:

LThread := TThread.CreateAnonymousThread(
  procedure
  begin
    // Tu etwas
  end);
LThread.OnTerminate := BinFertigEreignis;
LThread.Start;

markieren

Delphi-Quellcode:

TThread.CreateAnonymousThread(
  procedure
  begin
    try
      // Tu etwas
    finally
      BinFertigEreignis;
    end
  end).Start;

zusammenfalten · markieren

Delphi-Quellcode:

LThread := TThread.CreateAnonymousThread(
  procedure
  begin
    // Tu etwas
  end);
LThread.FreeOnTerminate := False;
LThread.Start;

// und dann kannst du nachfolgend
if LThread.Finished then // oder .WaitFor oder was mit .Handle

// und natürlich zum Schluß LThread.Free nicht vergessen

Zitat von himitsu:

Oder z.B. mit try-finally, in der Prozedur, am Ende deine Rückantwort.



PS, bei dir kommt dort nie eine Antwort, falls da nicht nicht noch ein Start kommt.

markieren

Delphi-Quellcode:

LThread := TThread.CreateAnonymousThread(
  procedure
  begin
    // Tu etwas
  end);
LThread.OnTerminate := BinFertigEreignis;
LThread.Start;

markieren

Delphi-Quellcode:

TThread.CreateAnonymousThread(
  procedure
  begin
    try
      // Tu etwas
    finally
      BinFertigEreignis;
    end
  end).Start;

zusammenfalten · markieren

Delphi-Quellcode:

LThread := TThread.CreateAnonymousThread(
  procedure
  begin
    // Tu etwas
  end);
LThread.FreeOnTerminate := False;
LThread.Start;

// und dann kannst du nachfolgend
if LThread.Finished then // oder .WaitFor oder was mit .Handle

// und natürlich zum Schluß LThread.Free nicht vergessen

Danke - das ist sehr hilfreich!