Find a dialog

[byron.hopp]

Is there a way to find a dialog which is active. It is a resource dialog and was Activated with "NOMODAL"

I would like to detect if it is on the screen somewhere and close it if need be.

Thanks,

Byron ...

[cnavarro]

You know cTitle / cCaption of dialog?

if you know cCaption, sample

Code: Select all  Expand view

//----------------------------------------------------------------------------//
//
Function BuscaDialog( cTitle )

   local nAt  := Ascan( GetAllWin(), { | w | Upper( w:cCaption ) == Upper( cTitle ) } )
   if !Empty( nAt )
      ? nAt, GetAllWin()[ nAt ]:ClassName()
   endif
   // XBrowse( GetAllWin() )

Return nil
//
//----------------------------------------------------------------------------//

 

[byron.hopp]

I came up with this:

Function FW_FindWindow( cTitle,cClassName )
Local aWindows := GetAllWin()
Local oRv := nil
Local o := nil
For Each o in aWindows
If o:ClassName() == cClassName
If o:cTitle == cTitle
oRv := o
Exit
Endif
Endif
Next
Return oRv

If there is a better way please let me know.

Thanks,

Byron ...

[byron.hopp]

Yes Mr. Navarro,

I believe you posted it before I finished mine.

I like your way better.

Thanks,

Byron ...