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

    property onmousedown;

    property onmousemove;

    property onmouseup;

  end;

procedure register;

implementation

const

{$ifdef win32}

  scardsdll = 'cards.dll';

{$else}