How to get Active Object in MDI app

[fraxzi]

Dear All,

How can I get/know active object (focused object) without going through an active dialog/window..
Is this possible?


Regards,
Frances

[frose]

Frances,

Code: Select all  Expand view

oWndActiveChild := WndMain():oWndClient:getActive()

HTH

[fraxzi]

Dear Mr. Frank,

Thank you for the reply.

I already tried that approach but it returns only the active window..

I'm looking for the active object with the current focus of the active window or dialog.


I tried WndMain():oWndActive:oCtlFocus.. If I have TFolder active, it returns the object but not the active object (e.g. xbrowse) of the TFolder..
It's a work around for now..


Regards,
Frances

[Antonio Linares]

Frances,

Try with:

oWndFromHwnd( GetFocus() )

[fraxzi]

Frances,

Try with:

oWndFromHwnd( GetFocus() )

Dear Mr. Antonio,

Thanks for the reply..

It returns NIL on active dialog..

Maybe an active child window can be determine.. how about an active dialog? and an active object of that dialog?..


Regards,
Frances

[Antonio Linares]

Frances,

Please run this:

MsgInfo( GetClassName( GetFocus() ) )

and let me know what you get

[Antonio Linares]

Frances,

For a dialog you have to use:

oDlgFromHwnd( GetFocus() )

[nageswaragunupudi]

Mr. Antonio

Can this modification be done in control.prg?

Code: Select all  Expand view

static oCtrlFocus
...
...
...
method GotFocus() CLASS TControl
...
..
// after ::oWnd:oCtrlFocus := Self
// Insert this line
oCtrlFocus := Self
...
...
// at the end of the module
function CtrlFocus()
return oCtrlFocus

 

Mr. Frances,
Can you test by making this change and see if you get the right result?

[fraxzi]

Dear Mr. RAO, Mr. Antonio,

Here are the test results.. looks promising


With the revised control.prg instructed by Mr. RAO

A little concern on no active object or only container (window/dialog) is active..





Here is the result of unmodified control.prg




I used MsgInfo( GetClassName( GetFocus() ) ) for both window/dialog


Using:

Code: Select all  Expand view

       oObj := oWinMDI:oWndClient:GetActive()
       msginfo( oObj:CtrlFocus() )
 

Returns NIL.. error. Maybe I used it incorrectly..

Best regards for both of you,
Frances

[nageswaragunupudi]

Mr Frances

In the revised control.prg, wherever you find "::oWnd:oCtlFocus = nil", also please add another line "oCtrlFocus := nil".

Now in our application, you can query for oCtrl := CtrlFocus(). If the result is not nil, then that is the control having focus.

[fraxzi]

Mr Frances

In the revised control.prg, wherever you find "::oWnd:oCtlFocus = nil", also please add another line "oCtrlFocus := nil".

Now in our application, you can query for oCtrl := CtrlFocus(). If the result is not nil, then that is the control having focus.

Dear Mr. RAO,

I works like a charm...


I hope this mod be included in the next build..

Regards,
Frances

[nageswaragunupudi]

I hope this mod be included in the next build..

We don't know if Mr. Antonio has a better solution.

We can have a function to return control in focus ( or nil if none ) even without modifying the fwh libraries.

Here is the pseudo logic:
find active window.
find control in focus of that window
if that control is tfolder
find the active dialog
find the control in focus of that dialog

You may try this approach too and make a genral function and test it.

[fraxzi]

I hope this mod be included in the next build..

We don't know if Mr. Antonio has a better solution.

We can have a function to return control in focus ( or nil if none ) even without modifying the fwh libraries.

Here is the pseudo logic:
find active window.
find control in focus of that window
if that control is tpanel
find the active dialog
find the control in focus of that dialog

You may try this approach too and make a genral function and test it.

Dear Mr. RAO,

I tried that approach but it too much code. Your solution works ok.


Best regards,
Frances

[Antonio Linares]

It seems as Rao's solution is very simple and it works fine

And we may enhance it in the future, as described for folders, in case that we need to extend its functionality

[nageswaragunupudi]

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 )