Class tlinkedpersistent

Unit

mseclasses

Declaration

type tlinkedpersistent = class(tnullinterfacedpersistent, iobjectlink)

Description

Hierarchy

• TObject
• tpersistent
• tvirtualpersistent
• tnullinterfacedpersistent
• tlinkedpersistent

Overview

Fields

fobjectlinker: tobjectlinker;

Methods

	function getobjectlinker: tobjectlinker;
	procedure objectevent(const sender: tobject; const event: objecteventty); virtual;
	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; virtual;
	destructor destroy; override;
	procedure setlinkedvar(const source: iobjectlink; var dest: iobjectlink; const linkintf: iobjectlink = nil); overload;
	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 setlinkedvar(const source: tlinkedpersistent; var dest: tlinkedpersistent; const linkintf: iobjectlink = nil); overload;

Description

Fields

	fobjectlinker: tobjectlinker;

Methods

	function getobjectlinker: tobjectlinker;

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

	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; virtual;

	destructor destroy; override;

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

	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 setlinkedvar(const source: tlinkedpersistent; var dest: tlinkedpersistent; const linkintf: iobjectlink = nil); overload;