FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cerrar Dialogo con parametros NOWAIT y POPUP
Posts: 485
Joined: Fri Feb 09, 2007 10:34 AM
Cerrar Dialogo con parametros NOWAIT y POPUP
Posted: Mon Apr 06, 2009 10:46 AM

Muy buenas, necesito cerrar un dialogo definido como Nowait y como popup, es decir, como yo tengo la propiedad NOWAIT entonces si hago oDlg:end(), me dice que la variable ya no existe, eso es normal, pero me gustaría saber como puedo cerrar dicho dialogo.

Un Saludo.

Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Cerrar Dialogo con parametros NOWAIT y POPUP
Posted: Mon Apr 06, 2009 11:25 AM
softruz wrote:Muy buenas, necesito cerrar un dialogo definido como Nowait y como popup, es decir, como yo tengo la propiedad NOWAIT entonces si hago oDlg:end(), me dice que la variable ya no existe, eso es normal, pero me gustaría saber como puedo cerrar dicho dialogo.

Un Saludo.


En el PRG en donde declaras el DIALOG:

a) añades
Code (fw): Select all Collapse
STATIC oElDlg

b) declaras la función
Code (fw): Select all Collapse
FUNCTION CierraElDlg()
oElDlg:End()
oElDlg := Nil
Return Nil

c) Declaras el DIALOG
Code (fw): Select all Collapse
DIALOG oElDlg NOWAIT ...

d) Donde quieras cerrar el DIALOG usas la función declarada
Code (fw): Select all Collapse
CierraElDlg()


Un saludo
Carlos G.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Re: Cerrar Dialogo con parametros NOWAIT y POPUP
Posted: Mon Apr 06, 2009 11:25 AM
Puedes definir la variabe oDlg como Estatica externa, de esta maneras pudes ejecutar oDlg:End()
Code (fw): Select all Collapse
STATIC oDlg
FUNCTION Main()
   ...
   FunCreaDlg()
   ...
   oDlg:End()
   ...
RETURN NIL
FUNCTION FunCreaDlg()
   DEFINE DIALOG oDlg
   ...
   ACTIVATE DIALOG oDlg NOWAIT
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
Posts: 485
Joined: Fri Feb 09, 2007 10:34 AM
Re: Cerrar Dialogo con parametros NOWAIT y POPUP
Posted: Mon Apr 06, 2009 11:41 AM

Funciona correctamente, muchas gracias por vuestras siempre respuestas.

Un Saludo.

Continue the discussion