使用智能移动工作室 2.2.0.4165(测试版)
我不确定我是否这样做是正确的,可能是我只是不明白如何正确使用 w3_TimeOut 回调。
当我单击开始按钮时,以下代码锁定。我的开始按钮卡在向下位置,程序锁定。当我关闭程序时,我得到一个"外部异常"。我必须重新启动短信才能做更多的事情。我做错了什么?
procedure TForm1.StartClick(Sender: TObject);
var
i: integer;
begin
//initialize variable
fRunning:= true;
repeat
//get a random light (1-4) and add to array
fLights.Add(RandomInt(4)+1);
//step through lights array and light up each light
for i:= 0 to fLights.Count-1 do
begin
LightUp(fLights[i]);
//add a delay after each
w3_setTimeOut( procedure ()
begin
//shut down light
LightDwn(fLights[i]);
end, 200);
end; //for
until not fRunning;
end;
procedure TForm1.StopClick(Sender: TObject);
begin
//reset variable
fRunning:= false;
//clear all lights in array
fLights.Clear;
end;
I even tried
w3_callback( procedure ()
begin
LightDwn(fLights[i]);
end, 200);
如果我不使用延迟,而是用显示消息延迟它,它也完全按照我的需要工作(当然,我不能使用显示消息)
procedure TForm1.StartClick(Sender: TObject);
var
i: integer;
begin
//initialize variable
fRunning:= true;
repeat
//get a random light (1-4) and add to array
fLights.Add(RandomInt(4)+1);
//step through lights array and light up each light
for i:= 0 to fLights.Count-1 do
begin
LightUp(fLights[i]);
ShowMessage('Up: ' + intToStr(fLights[i]));
LightDwn(fLights[i]);
ShowMessage('Down: ' + intToStr(fLights[i]));
end; //for
until not fRunning;
end;
一个简单的测试告诉我,w3_TimeOut不是阻塞例程例如
procedure TForm1.W3Button1Click(Sender: TObject);
var
I: Integer;
begin
for I:= 1 to 99 do
begin
w3_setTimeOut( procedure ()
begin
//shut down light
W3Label1.Caption:= IntToStr(I);
end, 1000);
end;
在循环完成之前,标签不会更新
我什至尝试刷新表单和标签
w3_setTimeOut( procedure ()
begin
//shut down light
W3Label1.Caption:= IntToStr(I);
W3Label1.Invalidate;
//self.Invalidate;
end, 1000);
但是,我认为我什至没有正确地做到这一点
经过一番搜索,我在SmartCL.Time中找到了TW3EventRepeater。
但是,它似乎与w3_setTimeOut和w3_callback的工作方式完全相同
如何在一些代码之后执行 wait(),然后在等待到期时,再执行一些代码。 一定是阻塞等待吗?
感谢
答:
fTimer:= TW3Timer.Create;
fTimer.Delay:= 1000;
fTimer.OnTime:= HandleTimer;
fTimer.Enabled:= True;
JavaScript 是单线程的,因此计时器仅在程序不执行任何操作时触发。因此,永远不会调用您的事件,因为您的程序正在无限期地重复等待。直到循环内部StartClick
.
您应该重写程序,以便:
- 单击按钮可设置计时器。
- 其他所有操作都在计时器事件中执行。