纸牌控件的编写(下)[1]

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;