thread beenden sofern vorhanden und erneut starten

**whiteF**

danke für die vorschläge.

ich habe es jetzt so gemacht:

> Threadunit in die uses aufgenommen (anstatt im ButtonClick als var deklariert)
>>> private Thread_PictureSearch : TThread_PictureSearch;

> habe eine gloabe variable in die Threadunit aufgenommen
>>> Diese wird bei einer Exception := false
>>> Diese wird bei durchlauf := false

Der Click auf Button sieht dann nun wie folgt aus:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFormVTBSuche.ListBoxBearbeiterClick(Sender: TObject);

begin

 if MyThreadRunning = True then

  begin

    if Assigned( Thread_PictureSearch ) then

    begin

      Thread_PictureSearch.Terminate;

    end;

  end;

//mache was...

      Thread_PictureSearch := TThread_PictureSearch.Create(False);

      Thread_PictureSearch.FreeOnTerminate := true;

      Thread_PictureSearch.Bildname := ImgName;

      Thread_PictureSearch.ApplicationTitle := Application.Title;

      Thread_PictureSearch.Resume;

      MyThreadRunning := True;

Nun wird wenigsten kein weiterer Thread gestartet.
Jedoch geht die cpu Last dennoch nach oben...

.

thread beenden sofern vorhanden und erneut starten

AW: thread beenden sofern vorhanden und erneut starten

Forumregeln