>SYS(232{5|6|7}) >>
>SYS(2328,nHwnd) >* Return the Form/Toolbar object with nHwnd >* ( if it is the WCLIENTWINDOW HWND of a AS Top form, >* i expected the form ( window frame ) object ) > >SYS(2329,nWHANDLE) Return the Form/Toolbar object with nWHANDLE > >>
>* implement SYS(2328,m.nHwnd) > >PROCEDURE SYS_2328 > =BINDEVENT(m.nHwnd,nNopeMessage,odelegate,"Getform") > PRIVATE hWndObject > =Sendmessage(m.nHwnd,m.nNopeMessage,0,0) > DOEVENTS > RETURN m.hWndObject >ENDPROC > >PROCEDURE odelegate.Getform > PRIVATE aWMsg > AEVENTS(aWMsg,1) > hWndObject = aWMsg[3] >and >* A long run for a little result! >>
>? _FORMS(GetParent(m.someHwnd)).Caption >? _FORMS(GetAncestor(m.toolbarHwnd)).Caption >>