大家看看这段代码！(50分)

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-12

• #1

procedure tbarpos.Execute;
begin
while truedo
begin

form1.statusbar1.Panels[2].Text:='当前帧：'+inttostr(form1.myplayer.CurrentFrame);
Synchronize(UpdateCaption);
sleep(100);
end;
end;

procedure tbarpos.UpdateCaption;
begin
form1.prob.Position:=3;
//form1.prob.Position:=round(strtofloat(inttostr(form1.myplayer.CurrentFrame))/strtofloat(inttostr(form1.myplayer.TotalFrames))*strtofloat(inttostr(form1.prob.Max)));
end;

如果我把form1.prob.Position:=3;一句去掉，程序正常，就是说对form1.statusbar1.Panels[2].Text
的调用正常。那为什么对prob（是一个trackbar）的调用不行呢？
而且还用了synchronize（不用那个也不行）。
请高手赐教！

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-12

• #2

多线程高手，大家来看看！

 

P

probor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-15

• #3

将form1.statusbar1.Panels[2].Text这一句放到UpdateCaption过程中试试

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-15

• #4

那一句放不放都无所谓，不会出错
关键是下面一句！

 

B

bbkxjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-16

• #5

请说详细一点,到底出了什么错啊?

 

D

DragonPC_???

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-16

• #6

线程内部队VCL 界面控件的操作封装到Synchronize(<procedure>)方法里面，
这是常识呀，老大。

 

L

liguang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-16

• #7

VCL这种东西对线程安全支持得不是很好，只要在线程当中调用其它FORM中的内容就有可能
会出错。所以宝兰封装了一个线程类来做一点补救。其中Synchronize函数就是具体的补救
方法。其具体运作方式是：发消息给线程类建立时所建立的隐藏的窗口），注意这个窗口
是在主线程中建立的，所以可以安全访问VCL资源，然后再通过这个窗口中的消息函数来对
你要做的操作（函数）进行执行。这样就不会出错了。

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-16

• #8

这些道理我都知道，上面就是那么做的呀
可是为什么出错呢？

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-17

• #9

UpdateCaption不就是放在synchronize里么
其中的prob是一个刻度条控件
对他操作会出错
多状态栏操作就不会出错呢！？

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #10

up

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #11

up

 

A

aizb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #12

procedure tbarpos.Execute;
begin
while truedo
begin

Synchronize(UpdateCaption);
sleep(100);
end;
end;

procedure tbarpos.UpdateCaption;
begin
form1.statusbar1.Panels[2].Text:='当前帧：'+inttostr(form1.myplayer.CurrentFrame);
form1.prob.Position:=3;
//form1.prob.Position:=round(strtofloat(inttostr(form1.myplayer.CurrentFrame))/strtofloat(inttostr(form1.myplayer.TotalFrames))*strtofloat(inttostr(form1.prob.Max)));
end;

 

A

aizb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #13

为什么去掉Prob的操作就不会出错呢？因为在Execute中对Form1进行了操作，在UpdateCaption也对Form1进行了操作(要知道对VCL操作时同时也会对其父控件进行操作，比如Prob的改变就会导致Form1的重绘，同样Statusbar1的操作也一样！)。

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #14

那该怎么办？

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #15

ok，解决，我自己的问题
和多线程没关系
一点分，大家分了吧