唤醒已存在的线程:(
在另一个窗体中建立了一个线程CircleThread,这个线程创建后休眠,需要resume后才能执行。然后,
if not Assigned(CircleThread) then
CircleThread := TCircleThread.Create(2, 2, 2, '2', '2'); 这种情况能OK
else begin
CircleThread.X := 1; 这种情况不能执行
CircleThread.Y := 1;
CircleThread.radius := 1;
CircleThread.color := '1';
CircleThread.ADeviceNo := '1';
end;
CircleThread.Resume;
现在,没有线程创建线程后执行时是正确的;
但是线程已存在时,线程都不执行;
是哪里有问题,不是写了CircleThread.Resume用来唤醒线程了吗?