Пятница, 25 Сентября 2020 г. 13:27
+ в цитатник
faust777: Что с этим можно сделать?
Есть поток
TUPD = class(TThread)
private
FAK: Integer;
protected
procedure Execute; override;
public
constructor Create(TH: Integer);
end;
.........
constructor TUPD.Create(TH: Integer);
begin
FAK:= TH;
inherited Create(False);
FreeOnTerminate:= True;
end;
procedure TUPD.Execute;
begin
..
end;
Всё как бы работает.
Но если подвесить форму, например так то поток не запускается (в Execute ни чего не происходит) пока "зависание" не пройдёт.
for j := 0 to 9 do begin
Sleep(1000);
end;
https://forum.sources.ru/index.php?showtopic=419737&view=findpost&p=3839376
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
