a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Delphi > 正文

DELPHI下的多線程程序設計(2)

2019-11-18 18:44:33
字體：大 中 小
來源：轉載
供稿：網友
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；


上一篇：在Delphi中編寫控件的基本方法

下一篇：DELPHI下的多線程程序設計(1)

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 欧美一区二区在线 | 精品久久久久久久久久 | 日韩精品一区二区三区四区 | 欧美一级网站 | 日韩在线无 | 精品亚洲精品 | 欧美亚洲一| 日韩一级片在线观看 | 好姑娘影视在线观看高清 | 一区二区精品视频 | 五月婷婷免费 | 午夜成人在线视频 | 九九99久久| 青青久视频 | 日本在线精品 | 91精品国产高清久久久久久久久 | 国产成人精品免高潮在线观看 | 羞羞视频免费在线观看 | 九九热精品在线观看 | 久久新| 亚洲女人天堂成人av在线 | 日韩精品一二三区 | 日韩视频免费在线观看 | 中文字幕成人网 | 久久婷婷成人综合色 | 一级a性色生活片久久毛片波多野 | 91se在线| 伊人精品久久久 | 激情99| 精品欧美一区二区在线观看视频 | 欧美.www| 日本视频免费 | 亚洲一区二区三区福利 | 精品中文字幕在线观看 | 欧美精品久久久久久久 | 91免费看片 | 欧美成人a∨高清免费观看 99精品欧美一区二区三区 | 色伊人网| 依人99| 天天澡天天狠天天天做 | 日韩视频免费在线观看 |