How to return a button itself ?

[ShumingWang]

Hi,
Redefine button obutton id 201 of odlg action fun1(obutton)
This shows run time error : var obutton does not exists
I want
function fun1(obutton)
array1:=arect(obutton)
ACTIVATE MENU omenubill OF odlg at array1[1], array1[2]
// build a menu at obutton nrow,ncol
return

Regards !
Shuming Wang

[Antonio Linares]

Shuming,

Have you previously declared a:

local oButton

Also, replace these lines:

oRect := obutton:GetRect()
ACTIVATE MENU omenubill OF odlg at oRect:nTop, oRect:nLeft

[ShumingWang]

Antonio,
1.Yes, I missed done local obutton.

2.oRect := obutton:GetRect()
ACTIVATE MENU omenubill OF odlg at oRect:nTop, oRect:nLeft

This always show menu at right area of nomodal dialog

3. array1:= GetCoors(obutton:hwnd)
ACTIVATE MENU omenubill OF odlg at array1[1], array1[2]

This shows menu at button proper position on nomodal dialog .

Thank you !
Shuming Wang

[Antonio Linares]

Shuming,

Right. Thats another way of doing it without using a TRect object.

Very good