I have already said, I think:

function WSRegisterCustomX: Boolean; external name 'WSRegisterCustomX';

{...}

class procedure TCustomX.WSRegisterClass;
begin
  inherited;
  WSRegisterCustomX;
end;

Antônio
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to