Class tobjectlinker

Unit

mseclasses

Declaration

type tobjectlinker = class(trecordlist)

Description

Hierarchy

• tobject
• tnullinterfacedobject
• trecordlist
• tobjectlinker

Overview

Methods

	function isempty(var item): boolean; override;
	constructor create(const owner: iobjectlink; onevent: objectlinkeventty);
	destructor destroy; override;
	procedure link(const source,dest: iobjectlink; valuepo: pointer = nil; ainterfacetype: pointer = nil; once: boolean = false); overload;
	procedure link(const dest: tmsecomponent; valuepo: pointer = nil; ainterfacetype: pointer = nil; once: boolean = false); overload;
	procedure unlink(const source,dest: iobjectlink; valuepo: pointer = nil); overload;
	procedure unlink(const dest: tmsecomponent; valuepo: pointer = nil); overload;
	function linkedobjects: objectarty; overload;
	function linkedobjects(const ainterfacetype: pointer): objectarty; overload;
	procedure setlinkedvar(const linkintf: iobjectlink; const source: iobjectlink; var dest: iobjectlink; const ainterfacetype: pointer = nil); overload;
	procedure setlinkedvar(const linkintf: iobjectlink; const source: tlinkedobject; var dest: tlinkedobject; const ainterfacetype: pointer = nil); overload;
	procedure setlinkedvar(const linkintf: iobjectlink; const source: tlinkedpersistent; var dest: tlinkedpersistent; const ainterfacetype: pointer = nil); overload;
	procedure setlinkedvar(const linkintf: iobjectlink; const source: tmsecomponent; var dest: tmsecomponent; const ainterfacetype: pointer = nil); overload;
	procedure setlink(const linkintf: iobjectlink; const source: tmsecomponent; var dest: tmsecomponent; const ainterfacetype: pointer = nil); overload;
	procedure sendevent(event: objecteventty);
	procedure objevent(const sender: iobjectlink; const event: objecteventty);
	procedure forall(const proc: objectlinkprocty; const ainterfacetype: pointer); overload;
	procedure forall(const proc: objectlinkintfprocty; const ainterfacetype: pointer); overload;
	procedure forfirst(const proc: objectlinkfirstprocty; const ainterfacetype: pointer); overload;
	procedure forfirst(const proc: objectlinkintffirstprocty; const ainterfacetype: pointer); overload;

Description

Methods

	function isempty(var item): boolean; override;

	constructor create(const owner: iobjectlink; onevent: objectlinkeventty);

	destructor destroy; override;

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

	procedure link(const dest: tmsecomponent; valuepo: pointer = nil; ainterfacetype: pointer = nil; once: boolean = false); overload;

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

	procedure unlink(const dest: tmsecomponent; valuepo: pointer = nil); overload;

	function linkedobjects: objectarty; overload;

	function linkedobjects(const ainterfacetype: pointer): objectarty; overload;

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

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

	procedure setlinkedvar(const linkintf: iobjectlink; const source: tlinkedpersistent; var dest: tlinkedpersistent; const ainterfacetype: pointer = nil); overload;

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

	procedure setlink(const linkintf: iobjectlink; const source: tmsecomponent; var dest: tmsecomponent; const ainterfacetype: pointer = nil); overload;

	procedure sendevent(event: objecteventty);

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

	procedure forall(const proc: objectlinkprocty; const ainterfacetype: pointer); overload;

	procedure forall(const proc: objectlinkintfprocty; const ainterfacetype: pointer); overload;

	procedure forfirst(const proc: objectlinkfirstprocty; const ainterfacetype: pointer); overload;

	procedure forfirst(const proc: objectlinkintffirstprocty; const ainterfacetype: pointer); overload;