tmimedragobject

type tmimedragobject = class(tdragobject, iobjectlink)

public

  constructor create(); virtual;

  constructor createwrite();

  destructor destroy; override;

  function checkformat();

  property formats: msestringarty; [r]

  property formatistext: booleanarty; [r]

  property formatindex: Integer; [rw]

  property wantedformatindex: Integer; [rw]

  property data: string; [rw]

  property text: msestring; [rw]

  function convertmimedata(); virtual;

  function convertmimetext(); virtual;

end;

tmimedragobject,iobjectlink

tdragobject

tnullinterfacedobject,iunknown

tobject