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

  if value <> fglyph then

    begin

      fglyph.assign(value);

      invalidate;

    end;

end;

procedure tzfplaycard.wmerasebkgnd(var message: twmerasebkgnd);

begin

  message.result:=1;

end;