How to get Active Object in MDI app

[fraxzi]

Mr. Frances

This seems to be a much simpler solution. Can you please test and confirm if it works for you?

Code: Select all  Expand view

function ActiveControl()

   local oWnd := oWndFromHwnd( GetFocus() )

return If( oWnd:IsKindOf( 'TCONTROL' ), oWnd, nil )
 

Dear Mr. RAO,

On MDI app.. I have a runtime error on oWnd:IskidOf() "no exported method".. in dialog too.


Regards,
Frances

[Antonio Linares]

Frances,

Try it this way:

Code: Select all  Expand view

function ActiveControl()

   local oWnd := oWndFromHwnd( GetFocus() )

return If( oWnd != nil, If( oWnd:IsKindOf( 'TCONTROL' ), oWnd, nil ), nil )
 

[fraxzi]

Dear Mr. Antonio,

The modified control.prg has better results. I'll stick to it for a while..


Regards,
Frances