Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Object Within an Object???
Message
From
25/01/2001 09:50:14
 
 
To
24/01/2001 19:05:10
Spencer Redfield
Managed Healthcare Northwest, Inc.
Portland, Oregon, United States
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00468280
Message ID:
00468424
Views:
14
>I really need some guidance. I have just recently begun creating custom objects. I thought I could create a custom object that itself contains several custom objects.

Ive tried that before and it has never worked either, unfortunatley. THe CreateObject() can't be done in the property, it has to be done in a function, try this:
local	oLkUpFormObj
oLkUpFormObj = createobject( "LkUpParams" ) 

oLkUpFormObj.FormCaption = "Group.GroupName"	&& ControlSource
? oLkUpFormObj.FormCaption

? oLkUpFormObj.oCol1.BaseClass
? oLkUpFormObj.oCol1.ColSource
return		&& Main

***********************************
DEFINE CLASS "LkUpParams" AS	Custom
	FormCaption = "Lookup:"
	oCol1 = .NULL.
	proc Init
		this.oCol1 = createobject( "GrdCols" )
		this.oCol1.ColSource	= "Group.GroupName"	&& ControlSource
	endproc 
 
ENDDEFINE

DEFINE CLASS "GrdCols" AS	Custom
	ColSource	= ""
ENDDEFINE
Interesting point about teh debugger though, I wonder what's really inside here.
Previous
Reply
Map
View

Click here to load this message in the networking platform