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