Class tlinkedobject

Unit

mseclasses

Declaration

type tlinkedobject = class(tnullinterfacedobject, iobjectlink)

Description

Hierarchy

• tobject
• tnullinterfacedobject
• tlinkedobject

Overview

Fields

fobjectlinker: tobjectlinker;

Methods

	function getobjectlinker: tobjectlinker;
	procedure objectevent(const sender: tobject; const event: objecteventty); virtual;
	procedure setlinkedvar(const source: tmsecomponent; var dest: tmsecomponent; const linkintf: iobjectlink = nil); overload;
	procedure setlinkedvar(const source: tlinkedobject; var dest: tlinkedobject; const linkintf: iobjectlink = nil); overload;
	procedure link(const source,dest: iobjectlink; valuepo: pointer = nil; ainterfacetype: pointer = nil; once: boolean = false);
	procedure unlink(const source,dest: iobjectlink; valuepo: pointer = nil);
	procedure objevent(const sender: iobjectlink; const event: objecteventty); virtual;
	function getinstance: tobject;
	destructor destroy; override;

Description

Fields

	fobjectlinker: tobjectlinker;

Methods

	function getobjectlinker: tobjectlinker;

	procedure objectevent(const sender: tobject; const event: objecteventty); virtual;

	procedure setlinkedvar(const source: tmsecomponent; var dest: tmsecomponent; const linkintf: iobjectlink = nil); overload;

	procedure setlinkedvar(const source: tlinkedobject; var dest: tlinkedobject; const linkintf: iobjectlink = nil); overload;

	procedure link(const source,dest: iobjectlink; valuepo: pointer = nil; ainterfacetype: pointer = nil; once: boolean = false);

	procedure unlink(const source,dest: iobjectlink; valuepo: pointer = nil);

	procedure objevent(const sender: iobjectlink; const event: objecteventty); virtual;

	function getinstance: tobject;

	destructor destroy; override;