FoxPro/Visual FoxPro - Saber si un Form esta abierto

 
Vista:

Saber si un Form esta abierto

Publicado por Olga Gualdo (43 intervenciones) el 09/07/2007 12:55:50
Hola,
Me gustaria saber como puedo saber si hay un form abierto en tiempo de ejecución gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Saber si un Form esta abierto

Publicado por Iñaki (47 intervenciones) el 09/07/2007 13:04:54
La mejor forma q conozcon es con las API`s de windows.
Si tienes el handle de la ventana, usa un getwindow, para saber si esta abierto.

para obtener el handle de la ventana es suficiente con tener su titulo.

definicion de las API´s
DECLARE LONG FindWindow IN "user32" ;
STRING lpClassName,;
STRING lpWindowName
DECLARE Integer GetWindow IN WIN32API Integer nHwnd,Integer nCmd

**handle de la ventna

handle=findwindow(0,"titulo de la ventana")

**** saber si abierto

resp=getwindow(handle_ventana,0)

if resp=0
messagebox (" esta cerrado")
else
messagebox ("esta abierto")
endif

si la respuesta del "getwindow" es 0, significa que esta cerrado.
si la respuesta es diferente a 0, significa que sigue abierto.


suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Saber si un Form esta abierto

Publicado por Plinio (7841 intervenciones) el 09/07/2007 14:13:00
Chequea la funcion WEXIST() en la ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Saber si un Form esta abierto

Publicado por Olga Gualdo (43 intervenciones) el 09/07/2007 16:01:01
Al final lo he hehco con la función _SCREEN.Forms(X)....

gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Saber si un Form esta abierto

Publicado por Ernesto Hernandez (4623 intervenciones) el 11/07/2007 02:10:09
SET LIBRARY TO WFINDTIT

CREATE TABLE X (X C(10))

BROWSE NOWAIT

SET LIBR TO WFINDTIT

= WHIDE("X")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar