Question

关于Delphi多线程问题！！！！求教！！！

下面是线程入口函数function TimingButtonFunc(p: Pointer): Integer; stdcall;var iTime: Integer;begin iTime := Integer(p); while True do begin FrmGame.SetPressKey(0); ① FrmGame.Text := IntToStr(Random(100)); ② Sleep(iTime*1000); end; Result := 0;end;下面是创建线程。 if hTimer=0 then hTimer := Windows.CreateThread(nil, 0, @TimingButtonFunc, Ptr(30), 0, ID);hTimer是线程句柄全局变量我纳闷的是，第②句执行有效果 第①句为什么就没有反映呢！这个函数是按0键 小弟刚接触多线程！ 我想实现的是每隔iTime秒按一次0键

Answer 1

线程里如果要更改VCL要把它放在 Synchronize中！

追问

那第二句为什么有效果

追答

function TimingButtonFunc(p: Pointer): Integer; stdcall;
var iTime: Integer
;begin iTime := Integer(p);
while True do
begin
FrmGame.SetPressKey(0);
① FrmGame.Text := IntToStr(Random(100)); 这句是对frmgame.text赋值，也就是要更改VCL控件的一个属性（把这句放在synchornize里试试！）
② Sleep(iTime*1000); 这句只是一个系统SLEEP，不涉及VCL
end;
Result := 0;end

追问

哥你看花了，没排版难为你了。
FrmGame.SetPressKey(0); ① 这句是①
FrmGame.Text := IntToStr(Random(100));② 这句是 ②
我就是纳闷，他们同样都是VCL

Answer 2

你直接用定时器不就得了。
Sleep里面的参数是程序挂起的时间，程序都失去响应了，还计个球时。

追问

不是有While 循环呢吗？ 不人为挂起，会一直在哪里循环的啊！再说第二句也有效果的！

追答

用Timer.Enable := False（或者KillTimer）不就能把定时器关了么？
再说你的循环还不是为了实现每iTime*1000触发一次？用时钟的话还用写那个烂循环么？
还有谁知道你那个虾米SetPressKey是怎么实现的，你保证没有错？

Answer 3

能不能排一下版啊？
这样看着好累。

追问

我之前是排好 然后 粘贴 就发帖了，结果就成这样了，然后我又找不到在哪里编辑帖子，就只好这样了。！！！

追答

API线程方法操作控件，使用SendMessage方法同步VCL。
操作共享的变量使用临界等同步方法。

具体的问题，百度找下答案吧。