>>There's better method to access an object in a container by its name
>>
>>...
>> with GETPEM(thisform, lcButtonName)
>>...
>>
>>
>>>
>>>Something like (Starting from (0,0) and have 3 buttons at a row:
>>>
>>>lnTop = 0
>>>lnLeft = 0
>>>FOR i = 1 TO 80
>>> lcButtonName = 'cmd'+ALLTRIM(STR(i))
>>> thisform.AddObject(m.lcButtonName,'commandbutton')
>>> with evaluate('thisform.' + m.c)
>>> .Top = m.lnTop
>>> .Left = m.lnLeft
>>> IF i % 3 == 0
>>> lnTop = lnTop + .Height + 1
>>> lnLeft = 0
>>> ELSE
>>> lnLeft = lnLeft + .Width + 2
>>> ENDIF
>>> .visible = .t.
>>> endwith
>>>next
>>>
>>>Not tested :-)
>
>Instead of regular commandbutton, how would chg it to a cmdbutton I created in a vcx
>something like .class="mycmdbtn" ??
Change this line:
thisform.AddObject(m.lcButtonName,'commandbutton')
to:
thisform.NewObject(m.lcButtonName,'mycmdbtn', '<your classlib>')
Tamar