HOW TO SHOW A EXIST MDI

[gss200610]

hello all, I'm trying to put together a function to mdi windows, where I can pass the object and a baction as parameters, so that when opened by a User registration screen and not close, and try to open again, just bring that window already mdi created.

REDEFINE BUTTON BTNCAD ID 50 OF OWNDPRINCIPAL ACTION ( Abremdi ("clients", {| | Register ()) )

Abremdi function (OWND, bAction)

IF &OWND == NIL
EVAL (baction)
ELSE
&OWND: SetFocus ()
ENDIF
RETURN (. T.)

most always returns the last variable in OWND not exist.
if anyone has any function for treatment of mdi can share and appreciate.

[ADutheil]

This is the way I do:

Code: Select all  Expand view

STATIC nJane
STATIC oWndCh

FUNCTION MyFunction

IF nJane != 1
    DEFINE WINDOW oWndCh CHILD OF wndMain()
   
    ACTIVATE WINDOW oWndCh VALID ( nJane := NIL, .T. ) ON INIT ( nJane := 1 )
ELSE
    oWndCh:Restore()
ENDIF
RETURN ( NIL )