扑克牌组件之二——利用 cards.dll 编写扑克牌组件

最新推荐文章于 2024-07-31 09:23:18 发布

Hunto

最新推荐文章于 2024-07-31 09:23:18 发布

阅读量2.2k

点赞数

分类专栏： Delphi 控件专题文章标签： integer constructor function initialization cmd dll

本文链接：https://blog.csdn.net/Hunto/article/details/218729

版权

本文介绍了如何使用cards.dll来编写扑克牌组件，详细阐述了组件的创建和应用过程。

摘要由CSDN通过智能技术生成

扑克组件的编写及使用

上一次写了一个利用位图制作的扑克组件，这次换一下，试着利用cards.dll来做一人组件。这个组件没有大小王，速度也比上一个慢了许多。不过这个组件可以设置很多背景,而且它的宽度和长度都是可以更改的。

cards.dll 功能很全,我们这里只用它来画扑克牌的正面和反面,其他的一律不使用。如果您对这些用法感兴趣，可以到微软的MSDN上去查阅，这里就不再罗嗦了。下面请看：

unit Card;
// 项目：扑克牌组件 之二
// 作者：黄涛
// 邮件： Hunto@163.com
// 日期： 2004.12.16
// 本组件调用 Windows 的 cards.dll，如果系统不为2000/XP将无法使用。
interface
uses
  SysUtils, Classes, Controls,windows;
type
  TCardSuit=(csClub,csDiamond,csHeart,csSpade); //花色
  TCard = class(TGraphicControl)
  private
    FFaceUp:bool;   //是否面朝上
    FCardId:Cardinal; //扑克牌的编号
    FBackId:Cardinal; //背面图案
    procedure SetCardId(Id:Cardinal); //设置扑克牌的编号
    procedure SetFaceUp(FaceUp:bool); //设置是否面朝上
    procedure SetBackId(const Value: Cardinal); //设置扑克牌的背面图案
    function GetSuit: TCardSuit;  //得到扑克牌的花色
    function GetValue: Cardinal;  //得到扑克牌的点数
  protected
    p