--------------------------------------------
Function StopProgress : Boolean;
Begin
Stop :=True;
While InProgres Do Application.ProcessMessages;
//Обърках го, като писах тук, във форума. Извинявам се
Result:=NOT InProgres ;
end;
--------------------------------------------
Всъщност, за да го прехвърля в нишка, ще е доста работа, тъй като, повечето от операциите са с VCL или разни променливи от основния thread и просто нямам идея как точно да го направя това.
Ще се наложи да пиша куп процедури synchronize, а пък още по-вероятно е да се наложи всичко да преправям, затова ми се искаше да намеря някакъв друг начин.
За сега съм го оставил така. StopProgress e процедура и онзи while е махнат. В този вариант изпълнението на основния процес спира нормално. Не е много чисто, но на този етап ми върши работа.
Всъщност, аз не съм програмист, а това, което правя е програмка, която би трябвало да ми помогне в работата, поради тази причина и нямам много време да принаписвам всичко наново. Ако имате някакви идеи, свързани с въпроса ми, но без използването на нишка, ще се радвам да ги обсъдим.
Благодаря.