象上面所说的,不过每个循环都要加
for i:=1 to 100000 do
begin
Applicaton.ProcessMessages;
for j:=1 to 100000 do
begin
Applicaton.ProcessMessages;
for m:=1 to 100000 do
begin
...
要不用线程
new->thread object->输入你的线程名,如TMYthread
把你的代码放到
procedure TMYthread.Execute;
begin
{ 代码放在下面 }