tcaret

type tcaret = class(tnullinterfacedobject)

public

  constructor create;

  destructor destroy; override;

  procedure link();

  function islinkedto();

  procedure remove;

  procedure restore;

  procedure hide;

  procedure show;

  procedure move();

  function active;

  function visible;

  property origin: pointty; [r]

  property bounds: rectty; [rw]

  property cliprect: rectty; [rw]

  property rootcliprect: rectty; [r]

  property x: Integer; [rw]

  property y: Integer; [rw]

  property pos: pointty; [rw]

  property width: Integer; [rw]

  property height: Integer; [rw]

  property size: sizety; [rw]

  property periodetime: Integer; [rw]

end;

tcaret

tnullinterfacedobject

TObject,iunknown