纸牌控件的编写(下)

2008-04-09 04:25:39来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

constructor TZFPlayCard.Create(AOwner: TComponent);

var

x, y: integer;

begin

inherited Create(AOwner);

FCardId := 1;

cdtInit(x, y);

SetBounds(0, 0, x, y);

ControlStyle := [csClickEvents, csDoubleClicks];

Enabled := True;

Canvas.Brush.Style := bsClear;

FGlyph := TBitMap.Create;

end;

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:delphi中的split函数

下一篇:delphi连接数据库浅谈