Owner
(Available in 00 TS Tools(Base) - TS_Tools_Root1)
Purpose
Get the object owner
Syntax
IF oSomeObject:Owner<>NULL_OBJECT
Description
Get the owner of the object
Source
ACCESS Owner AS OBJECT PASCAL CLASS TS_Root1
LOCAL oOwner AS OBJECT
TSTrace Enter
oOwner:=SELF:_Owner
TSTrace Leave
RETURN oOwner