Delphi 组件编写--扑克牌组件

                                                                   Delphi 组件编写--扑克牌组件

                                                                                Hunter

      在网上看了不少关于扑克牌组件的编写，大多是调用Windows/system32下的cards.dll其实我们如果不调用这些函数也是可以作一个很好扑克牌组件。具体步骤如下：

       1、首先做一个位图文件，符合如下格式，所有的扑克牌均为同样大小，每种花色排一行，从A到K排列，花色按黑桃、红桃、方块、梅花排列。如果不想做可以从QQ game 下的CardRes.dll中导出，本组件就用的就是QQ Game的位图。然后建立一个文本文件名为card.rc，内容为 card Bitmap “card.bmp“，然后用brcc32.exe编译成 card.res。

      2、该扑克牌组件自TGraphicControl继承。可以做为一个单个扑克牌使用。其主要的属性有CardId，是其牌的编号，FaceUp是扑克牌正面朝上还是朝下的属性。Left,Top,Width,Height，Visual等属性均是继承于TGraphicControl，只需要说明一下即可。其源代码如下：

unit uCard;
//  单元：    可视化组件 ——扑克牌组件
//  作者：    黄涛
//  E_Mail:   hunto@163.com
//  日期：    2004.12.7