DELPHI下的多线程程序设计(2)

原创 2001年12月09日 15:39:00
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;

112_《Delphi2高级程序设计指南》

Delphi 2.0高级程序设计指南(非常的优秀)
  • shuaihj
  • shuaihj
  • 2010年12月18日 15:44
  • 2039

DELPHI下的多线程程序设计

DELPHI下的多线程程序设计我们知道,win95或winNT都是“多线程”的操作系统,在DELPHI 2.0中,我们可以充分利用这一特性,编写出“多线程”的应用程序。   对以往在DOS或16位wi...
  • Raiboi
  • Raiboi
  • 2006年01月16日 08:51
  • 781

Win32多线程程序设计

Win32多线程程序设计”多线程多任务“是程序开发者和用户都需要的一个重要资产。从WindowsNT开始,完全支持32位程序的抢占式多任务。带领我们进入了”多线程多任务“时代。基本概念 进程(pro...
  • chenjintaoxp
  • chenjintaoxp
  • 2015年07月31日 16:04
  • 1258

Delphi XE7中新并行库

Delphi XE7中增加了新的并行库,和.NET的Task和Parellel相似度99%。 具体内容可以看下面的文章: http://www.delphifeeds.com/go/s/11957...
  • ppayun
  • ppayun
  • 2014年10月12日 22:36
  • 5551

DELPHI下的多线程程序设计(1)

DELPHI下的多线程程序设计(1)     我们知道,win95或winNT都是“多线程”的操作系统,在DELPHI 2.0中,我们可以充分利用这一特性,编写出“多线程”的应用程序。   对以往在D...
  • zou5655
  • zou5655
  • 2001年12月09日 15:39
  • 1612

Delphi中使用TThread类实现多线程

之前写的多线程程序都是用api直接做的,没有用过delphi自带Tthread类,刚才看了下,写了个demo,希望对新手有帮助。。。 窗体单元: unit main; interfa...
  • wozengcong
  • wozengcong
  • 2015年05月03日 12:42
  • 5672

delphi2010多线程编程教程

delphi笔记12010-09-14 10:45:47阅读657评论0  字号:大中小 订阅FROM:http://hi.baidu.com/ytlvy2008/blog/item/e5a03ad1...
  • gzcszzx
  • gzcszzx
  • 2011年05月28日 10:21
  • 1757

java多线程编程的两种方式

上一篇文章讲了多线程的同步但是发现好多同学对多线程的如何编程有点疑惑,今天根据网上的一些资料和方法来简单根据我之前的示例代码来演示一些,多线程编程实现的两种方法: 1、定义类继承thread类并且重写...
  • zfszhangyuan
  • zfszhangyuan
  • 2016年09月12日 10:45
  • 2796

Delphi 多线程编程(1)

本文的内容取自万一博客,并重新加以整理,在此留存仅仅是方便自己学习和查阅。所有代码均亲自测试 delphi7下测试有效。图片均为自己制作。 多线程应该是编程工作者的基础技能, 但这个基础我从来没...
  • lailai186
  • lailai186
  • 2013年04月09日 07:55
  • 2615

Delphi多线程 尽量避免使用API创建线程

在Delphi中创建线程,请一定使用BeginThread()代替CreateThread()创建线程!   如果直接使用Win32的API函数CreateThread()创建多个线程,也是可以创建...
  • chencong5025
  • chencong5025
  • 2016年12月12日 18:11
  • 840
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:DELPHI下的多线程程序设计(2)
举报原因:
原因补充:

(最多只允许输入30个字)