Class tdragobject

Unit

msedragglob

Declaration

type tdragobject = class(tnullinterfacedobject)

Description

Hierarchy

• tobject
• tnullinterfacedobject
• tdragobject

Overview

Fields

	finstancepo: pdragobject;
	fsender: tobject;
	fstate: dragobjstatesty;
	fsysdndintf: isysdnd;
	feventintf: ievent;
	factions: dndactionsty;

Methods

	function checksysdnd(const aaction: sysdndactionty; const arect: rectty): boolean;
	function geteventintf: ievent;
	constructor create(const asender: tobject; var instance: tdragobject; const apickpos: pointty; const aactions: dndactionsty = []);
	destructor destroy; override;
	function sender: tobject;
	procedure acepted(const apos: pointty); virtual;
	procedure refused(const apos: pointty); virtual;

Properties

	property pickpos: pointty read fpickpos write fpickpos;
	property droppos: pointty read fdroppos write fdroppos;
	property state: dragobjstatesty read fstate;
	property dropped: boolean read getdropped;
	property actions: dndactionsty read factions write factions;

Description

Fields

	finstancepo: pdragobject;

	fsender: tobject;

	fstate: dragobjstatesty;

	fsysdndintf: isysdnd;

	feventintf: ievent;

	factions: dndactionsty;

Methods

	function checksysdnd(const aaction: sysdndactionty; const arect: rectty): boolean;

	function geteventintf: ievent;

	constructor create(const asender: tobject; var instance: tdragobject; const apickpos: pointty; const aactions: dndactionsty = []);

	destructor destroy; override;

	function sender: tobject;

	procedure acepted(const apos: pointty); virtual;

	procedure refused(const apos: pointty); virtual;

Properties

	property pickpos: pointty read fpickpos write fpickpos;

	property droppos: pointty read fdroppos write fdroppos;

	property state: dragobjstatesty read fstate;

	property dropped: boolean read getdropped;

	property actions: dndactionsty read factions write factions;