IDE XE8 CNPACK 最新版
如果点击之前cndebuger未启动,以下代码只输出一次,'Work2Start...'
如果点击之前cndebuger已经启动,则有一定概率输出正常
procedure TForm1.Button2Click(Sender: TObject);
begin
TThread.CreateAnonymousThread(
procedure
begin
CnDebugger.LogMsg('Work1Start...');
end
).Start;
TThread.CreateAnonymousThread(
procedure
begin
CnDebugger.LogMsg('Work2Start...');
end
).Start;
end;Author:
Passion Time: 2015-5-15 00:26