Formulario Abierto
Publicado por Ruben Antunes (46 intervenciones) el 07/08/2006 17:28:54
Existe alguna funcion que me permita saber si un formulario "En nivel superior" esta ya abierto dentro de uno "En Nivel Superior". Yo tengo la siguiente rutina, pero solo me lo acepta si los formularios en su totalidad son Formulario en Nivel Superior.
LParameters cCaption
LOCAL nHWD
DECLARE INTEGER FindWindow IN WIN32API STRING cNULL, STRING cWinName
DECLARE SetForegroundWindow IN WIN32API INTEGER nHandle
DECLARE SetActiveWindow IN WIN32API INTEGER nHandle
DECLARE ShowWindow IN WIN32API INTEGER nHandle, INTEGER nState
nHWD = FindWindow(0, cCaption)
IF nHWD > 0
* VENTANA YA ACTIVA
* LA "LLAMAMOS":
ShowWindow(nHWD,9)
* LA PONEMOS ENCIMA
SetForegroundWindow(nHWD)
* LA ACTIVAMOS
SetActiveWindow(nHWD)
RETURN .T.
ELSE
* VENTANA NO ACTIVA
RETURN .F.
ENDIF
LParameters cCaption
LOCAL nHWD
DECLARE INTEGER FindWindow IN WIN32API STRING cNULL, STRING cWinName
DECLARE SetForegroundWindow IN WIN32API INTEGER nHandle
DECLARE SetActiveWindow IN WIN32API INTEGER nHandle
DECLARE ShowWindow IN WIN32API INTEGER nHandle, INTEGER nState
nHWD = FindWindow(0, cCaption)
IF nHWD > 0
* VENTANA YA ACTIVA
* LA "LLAMAMOS":
ShowWindow(nHWD,9)
* LA PONEMOS ENCIMA
SetForegroundWindow(nHWD)
* LA ACTIVAMOS
SetActiveWindow(nHWD)
RETURN .T.
ELSE
* VENTANA NO ACTIVA
RETURN .F.
ENDIF
Valora esta pregunta


0