注意,在等待的过程中应该调用Application.ProcessMessages;将系统控制权暂时交出。有没有这样呢? while ... do begin .............. Application.ProcessMessages; end;
我在程序中使用了rony的方法,直接run还是不行; 后来我在 function TYwReport.Proc : bool; begin if Assigned(FOnProc) then OnProc(self); result := true; end;中的if Assigned(FOnProc) then语句,加了断点,运行结果正确,会不会是这一步的问题呢,
while ... do
begin
..............
Application.ProcessMessages;
end;
后来我在
function TYwReport.Proc : bool;
begin
if Assigned(FOnProc) then
OnProc(self);
result := true;
end;中的if Assigned(FOnProc) then语句,加了断点,运行结果正确,会不会是这一步的问题呢,