网站建设| 数据库类| 图形图象| 程序设计| 现代办公| 操作系统| 考试认证| 网络技术| 软件工程| 电脑相关| 文学作品
网站开发| 网页制作| 操作系统| 图象图形| 考试认证| 数据库类| 程序设计| 硬件技术| 现代办公| 网络技术| 笑话频道
 
您的位置: 电脑书库首页-> 电脑文摘-> 程序设计-> Delphi/Pascal-> DELPHI下的多线程程序设计(2)

DELPHI下的多线程程序设计(2)
作者:佚名 来源:InterNet 加入时间:2004-11-25
相关文章
  • DELPHI下的多线程程序设计(1)
  • 相关书籍:
    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;


    [文章录入员:fightter]

    相关文章
  • DELPHI下的多线程程序设计(1)
  • 相关书籍:
    本站推荐内容

    近期主机类热搜关键词:
    美国服务器 美国服务器租用 海外服务器租用 国外服务器租用

    Delphi/Pascal
    C/C++/VC
    C++Builder
    Basic/VB类
    Delphi/Pascal
    Java编程
    FORTRAN
    其它
    电脑教程阅读排行
    ·DELPHI下的多线程程序设计(...
    ·Delphi与Excel的亲密接...
    ·Delphi实现串口通信的常用的...
    ·Delphi中初始化.Ini文件...
    ·Delphi中用于读写(I/O)...
    ·谈谈Delphi中的类和对象
    ·Delphi编译错误中文手册
    ·Delphi中关于TApplic...
    ·OPENGL图形程序设计
    ·SQL的基本操作