Delphi

本类阅读TOP10
·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

→ 分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
DELPHI下的多线程程序设计(2)

作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站
DELPHI下的多线程程序设计(2)

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）来调用MoveShape过程，实际上，在任何需要操作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；



相关文章：

相关软件：