FiveTech Support Forums

Armando Picon wrote:Anserkk

Only it has a disadvantage. If the user has minimized the MDICHILD, the function always will come back .T. If the user is careful he will look on his screen for the minimized window and will activate her. But if he is not careful, the first thing that will do is to protest with regard to the quality of the application.

Armando

wndMain():oWndClient:aWnd[i]:Restore()

*------------------------------------------------------*
Function wndSetFocus(cTitle)
*------------------------------------------------------*
/* Here is a function to prevent opening more than one copy of a MDI child window. 
   It also brings the window to the top and set the focus to it. 
   Title/Caption of the window is passed as a parameter
*/
local i:=0,lSuccess:=.f.
cTitle:=upper(cTitle)
For i=1 to len(wndMain():oWndClient:aWnd)
  if upper( wndMain():oWndClient:aWnd[i]:cCaption )=cTitle
     wndMain():oWndClient:aWnd[i]:setFocus()
     wndMain():oWndClient:aWnd[i]:Restore()
     lSuccess:=.t.
  endif
Next
Return lSuccess

Anserkk

Yes, really it is a good solution. I am going to evaluate the convenience of establishing for me, as a standard, the function that you indicate. I do not understand very the sequence of actions from Class Window towards the Class tMdiChild.
The sequence seems to me to be confused between Window -> tFrame -> tMdiClient -> tMdiChild. There is repetition of bylines oWndClient and, the truth, I cannot imagine how they are interrelated.

In the tests that I did with Daniel, in a simple example, there works very well the variant that he proposes. But when the inserted thing in a big application, which was a motive of the consultation, since it does not work.

Regards

Armando

Daniel

Tuve la impresión que tu código funcionaba en razón a que no utilizaba muchos recursos del equipo y, ante esa ocurrencia, revisé el código llamador y reuní muchas variables en una Clase tipo oApp publica. Después de esto, volví a insertar el código sugerido en las pruebas y, efectivamente, nuevamente vuelve a reconocer al código, tal como indicaste. Es decir tu código actúa perfectamente. Es posible, en mi caso, que estuviera utilizando mucho recurso de la máquina y cuando disminuí la carga todo volvió a la normalidad. Así que voy a utilizar tu código, indistintamente también, con lo que sugiere Anserkk.

Expreso mi gratitud a ambos, a tí y también a Anserkk

Saludos

Armando