tcustomdragcontroller

type tcustomdragcontroller = class(tlinkedpersistent,ievent)

public

  constructor create();

  destructor destroy; override;

  function active;

  procedure enddrag; virtual;

  procedure mouseevent(); virtual;

  procedure clientmouseevent(); virtual;

  procedure childormouseevent(); virtual;

  function beforedragevent(); virtual; abstract;

  function afterdragevent(); virtual; abstract;

  property pickpos: pointty; [r]

  property options: dragoptionsty; [rw]

end;

tcustomdragcontroller

tlinkedpersistent,ievent

tnullinterfacedpersistent,iobjectlink

tvirtualpersistent,iunknown

tpersistent

TObject