FoxPro/Visual FoxPro - Activar Formulario

Existe alguna forma de activar un formulario desde otro.

Siempre y cuando estes dentro de un FormSet o lo hagas desde un menu
cheka este ejemplo


SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0k50sa3dr OF _MSYSMENU PROMPT "\<Window" COLOR SCHEME 3 ;
KEY ALT+W, ""
DEFINE PAD _0k50sa3ds OF _MSYSMENU PROMPT "E\<xit" COLOR SCHEME 3 ;
KEY ALT+X, ""
ON PAD _0k50sa3dr OF _MSYSMENU ACTIVATE POPUP Wwindow
ON SELECTION PAD _0k50sa3ds OF _MSYSMENU DO CloseDemo

DEFINE POPUP Wwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Wwindow PROMPT "\<Close" ;
SKIP FOR TYPE("_Screen.ActiveForm.Name")<>"C"
DEFINE BAR 2 OF Wwindow PROMPT "\<Open"
ON SELECTION BAR 1 OF Wwindow =_SCREEN.ACTIVEFORM.RELEASE()
ON SELECTION BAR 2 OF Wwindow DO OpenForm

PUBLIC ARRAY aoForms(1)
aoForms[1] = NEWOBJECT("frmdemo")
aoForms[1].SHOW
READ EVENTS
SET SYSMENU TO DEFAULT
CLEAR ALL
PROCEDURE OpenForm
DIMENSION aoForms(ALEN(aoForms)+1)
aoForms[ALEN(aoForms)] = NEWOBJECT("frmdemo")
aoForms[ALEN(aoForms)].SHOW
RETURN
PROCEDURE CloseDemo
CLEAR EVENTS
RETURN

DEFINE CLASS frmdemo AS FORM
CAPTION = "Demo Form"
NAME = "frmDemo"

ADD OBJECT cmdClose AS COMMANDBUTTON WITH ;
TOP = 200, ;
LEFT = 264, ;
HEIGHT = 27, ;
WIDTH = 84, ;
CANCEL = .T., ;
CAPTION = "Close", ;
DEFAULT = .T., ;
NAME = "cmdClose"

PROCEDURE cmdClose.CLICK
m.nOKButton=0
m.nInfo=64
=MESSAGEBOX("After this Form closes, select Exit from the menu to return to the Command Window",m.nInfo+m.nOKButton)
THISFORM.RELEASE
ENDPROC

PROCEDURE RELEASE
LOCAL m.nIndex
FOR m.nIndex = 1 TO ALEN(aoForms)
IF VARTYPE(aoForms[m.nIndex])=="O"
IF aoForms[m.nIndex]=THIS
aoForms[m.nIndex] = ""
EXIT
ENDIF
ENDIF
ENDFOR
ENDPROC
ENDDEFINE

Suerte

para activarlo solo entra este codigo:
****
do form miformulario
****
coloca las siguientes propiedades al formulario que llamas ("miformulario")

alwaysonTop =.t.
modal = 1

pregunto
dejo el formulario en el top ylos demas formularios que ?

Ernesto, no entiendo tu pregunta, pero si al respecto de activar formulario, con lo que me enviastes ya solucione el problema. Gracias

Ok ruben eso es bueno ..

No se que pasa, puedo detectar que un formulario esta activo, de esta forma no me lo vuelve a cargar porque no quiero que se cargue, sino, para el caso en que este ejecutandose se active nuevamente al pulsar el boton que llama a dicho formulario. Como dije el primer paso esta listo, no me lo carga mas de una ves, pero me da error o le estoy escapando a la funcion cuando utilizo screen. Me podrìas orientar y decir que tengo que en el comando screen para activar el 2do. formulario al pulsar un boton que esta en el formulario1. Gracias.

Revisa el SHOW y el ACTIVATE del _SCREEN

Suerte