纸牌控件的编写(中)[9]

function cdtanimate; external scardsdll index 5;

{$endif win32}

procedure register;

begin

  registercomponents('standard', [tzfplaycard]);

end;

{ tzfplaycard }

{procedure tzfplaycard.click;

begin

  inherited;