| 本月文章推荐 |
DELPHI下的多线程程序设计(2)发表日期：2006-2-4
|
|
end；
end； procedureTBounceThread．Execute； begin WhilenotTerminateddo begin Synchronize（MoveShape）； end； end； constructorTBounceThread．Create（Suspended：Boolean；Shape：TShape；XSpeed，YSpeed：Integer）； begin inheritedCreate（Suspended）； FShape：ΚShape； FXSpeed：ΚXSpeed；｛X轴走向的速度｝ FYSpeed：ΚYSpeed；｛Y轴走向的速度｝ FreeOnTerminate：ΚTrue； end； end． 这是一个多线程的碰碰球游戏，你可以有多个不同的球，它们分属不同的线程，各自独立的在屏幕上碰撞。显然，由于多个球运行的显示会同时操作VCL资源，为了安全，我们在Execute过程中的执行部分加入了Synchronize（MoveShape）来调用MoveShape过程，实际上，在任何需要操作VCL资源的地方，例如窗体、位图，都应加入Synchronize调用。 执行时我们可以新建一个程序，然后在USES部分加入以上的BncThrd单元，再在它的窗体FORM1上加入两个Shape控件Shape1和Shape2，Shape1可以是一个矩形而Shape2是一个圆。加入以下的代码就可以让矩形和圆动起来。 procedureTForm1．Button1Click（Sender：TObject）； begin TBounceThread．Create（False，Shape1，1，2）； TBounceThread．Create（False，Shape2，2，3）； end； |
| 上一篇：DELPHI下的多线程程序设计(1)
人气:4736 下一篇：异常死亡进程的自动复活 人气:4367 |
| 浏览全部Delphi的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
