自己用的XE10正学习做安卓APP,但是做到一半的时候,发现,只要手机锁屏了,或者返回桌面了,程序继续运行几秒钟后就停止 了。可以说是暂停了,再次打开界面的时候才继续。我要做的东西,要在锁屏的时候能继续工作的。网上查找资料,大多数都是说发送到后台,实测的时候,却中一运行那个后台函数,只是显示桌面而已,并没有想要的效果,求高手,告诉一下,那里设置的?以下是做了个测试函数。
procedure TForm1.Button3Click(Sender: TObject);begin
TThread.CreateAnonymousThread(procedure ()
var
I: Integer;
begin
for I := 1 to 10000000 do
begin
TThread.Synchronize (TThread.CurrentThread,
procedure ()
begin
Form1.Memo1.Text:=inttostr(i);
end);
end;
end).Start;
end;
看着界面的时候,数字不断增加变化。求锁屏时继续工作的设置或者方法,路子。
procedure TForm1.Button3Click(Sender: TObject);begin
TThread.CreateAnonymousThread(procedure ()
var
I: Integer;
begin
for I := 1 to 10000000 do
begin
TThread.Synchronize (TThread.CurrentThread,
procedure ()
begin
Form1.Memo1.Text:=inttostr(i);
end);
end;
end).Start;
end;
看着界面的时候,数字不断增加变化。求锁屏时继续工作的设置或者方法,路子。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货