code is as follows
FOR i = 1 to ThisForm.lstSelected.ListCount
SEEK ThisForm.lstSelected.List(i)
lc_classname = ALLTRIM(rmgrobj.filename)
SET CLASSLIB TO (g_cWorkDir + lc_classname) ADDITIVE
bc.AddObject(lc_classname, lc_classname)
DO ObjBrowser WITH lc_ClassName && or another way I tried
DO ObjBrowser WITH bc.controls(i) && bc is the container
ENDFOR
That last line of code does not run because the object browser is looking for an object...and it says the para is no object.
as in
start up code from ObjBrowser.prg
LPARAMETER toObject
oObjInspect = CREATE("Objectinspectorform",toObject)
oObjInspect.Show()
Thanks
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only