In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Valor de retorno al cerrar una ventana de di

Foro público de Xailer en español
Guillermo Guevara Car
Posts: 176
Joined: Sat Jan 19, 2008 5:52 pm

Valor de retorno al cerrar una ventana de di

Postby Guillermo Guevara Car » Sun Jan 27, 2008 9:06 pm

Desde un programa principal ejecuto la siguiente instrucción para llamar una
ventana de diálogo llamada Test.prg que contiene un ListBox
Test():New():ShowModal()
Al salir de esa ventana lo puedo hacer de dos formas:
1.- Cerrandola con un Click en la X
2.- Ejecutado un proceso con un evento DobleClick, (Ejemplo: Seleccionando
un valor del ListBox)
Al retornar al programa principal como se (Que valor retorna) con cual de
las 2 formas se cerró la ventana.
Saludos
Ing. Guillermo Guevara C.
Grupo Computación 2000
Nuevo Mundo Nº 2821
Jardines de la Cruz
Guadalajara, Jal. 44950
(33) 1078-8363 / 1078-8364
www.PvWin.com
soporte@PvWin.com
jrcpoli-quitar
Posts: 558
Joined: Tue Feb 09, 2010 2:26 pm

Valor de retorno al cerrar una ventana de di

Postby jrcpoli-quitar » Sun Jan 27, 2008 10:46 pm

Guillermo Guevara Carrillo escribió:
> Desde un programa principal ejecuto la siguiente instrucción para llamar una
> ventana de diálogo llamada Test.prg que contiene un ListBox
>
> Test():New():ShowModal()
>
> Al salir de esa ventana lo puedo hacer de dos formas:
>
> 1.- Cerrandola con un Click en la X
> 2.- Ejecutado un proceso con un evento DobleClick, (Ejemplo: Seleccionando
> un valor del ListBox)
>
> Al retornar al programa principal como se (Que valor retorna) con cual de
> las 2 formas se cerró la ventana.
>
> Saludos
>
> Ing. Guillermo Guevara C.
> Grupo Computación 2000
> Nuevo Mundo Nº 2821
> Jardines de la Cruz
> Guadalajara, Jal. 44950
> (33) 1078-8363 / 1078-8364
> www.PvWin.com
> soporte@PvWin.com
>
>
Saludos:
Por lo que veo la ventana no contiene ningún botón, ni de cerrar ni de
aceptar que serí­a lo más cómodo para preguntarle por nModalResult al
cerrarla, por lo tanto lo que puedes hacer es crear una data en el
formulario Text.prg
DATA nQuienCierra INIT 0
En el Evento DobleClick ::nQuienCierra := 1
Luego en el formulario que la llama
WITH Text():New( Self ):ShowModal()
IF :nQuienCierra = 0
** Cierro con la X
ELSE
** Cierro con DOBLECLICK
ENDIF
END
Si te decides ha poner un botón:
Incluso aunque seleccionaras con DobleClick siempre puedes dirigir el
evento al contenido del botón poniendo {|| ::NombredelBotón() }
Espero que te sirva.
José Ramón Castro.
pablogarciau
Posts: 133
Joined: Mon May 22, 2006 10:26 am

Valor de retorno al cerrar una ventana de di

Postby pablogarciau » Tue Jan 29, 2008 8:50 am

José Ramón Castro Polinio escribió:
> Guillermo Guevara Carrillo escribió:
>> Desde un programa principal ejecuto la siguiente instrucción para
>> llamar una ventana de diálogo llamada Test.prg que contiene un ListBox
>>
>> Test():New():ShowModal()
>>
>> Al salir de esa ventana lo puedo hacer de dos formas:
>>
>> 1.- Cerrandola con un Click en la X
>> 2.- Ejecutado un proceso con un evento DobleClick, (Ejemplo:
>> Seleccionando un valor del ListBox)
>>
>> Al retornar al programa principal como se (Que valor retorna) con cual
>> de las 2 formas se cerró la ventana.
>>
>> Saludos
>>
>> Ing. Guillermo Guevara C.
>> Grupo Computación 2000
>> Nuevo Mundo Nº 2821
>> Jardines de la Cruz
>> Guadalajara, Jal. 44950
>> (33) 1078-8363 / 1078-8364
>> www.PvWin.com
>> soporte@PvWin.com
>>
>
> Saludos:
>
> Por lo que veo la ventana no contiene ningún botón, ni de cerrar ni
> de aceptar que serí­a lo más cómodo para preguntarle por nModalResult al
> cerrarla, por lo tanto lo que puedes hacer es crear una data en el
> formulario Text.prg
>
> DATA nQuienCierra INIT 0
>
> En el Evento DobleClick ::nQuienCierra := 1
>
> Luego en el formulario que la llama
>
> WITH Text():New( Self ):ShowModal()
> IF :nQuienCierra = 0
> ** Cierro con la X
> ELSE
> ** Cierro con DOBLECLICK
> ENDIF
>
> END
>
> Si te decides ha poner un botón:
>
> Incluso aunque seleccionaras con DobleClick siempre puedes dirigir el
> evento al contenido del botón poniendo {|| ::NombredelBotón() }
>
> Espero que te sirva.
>
> José Ramón Castro.
Yo añadiria que tambien actives la propiedad lHideOnClose del formulario
para que puedas acceder a la data que menciona Jose Ramon despues de
cerrar el Dialog
Saludos
jrcpoli
Posts: 240
Joined: Wed Oct 25, 2006 8:55 pm

Valor de retorno al cerrar una ventana de di

Postby jrcpoli » Tue Jan 29, 2008 11:07 am

Juan Pablo Garcia escribió:
> José Ramón Castro Polinio escribió:
>> Guillermo Guevara Carrillo escribió:
>>> Desde un programa principal ejecuto la siguiente instrucción para
>>> llamar una ventana de diálogo llamada Test.prg que contiene un ListBox
>>>
>>> Test():New():ShowModal()
>>>
>>> Al salir de esa ventana lo puedo hacer de dos formas:
>>>
>>> 1.- Cerrandola con un Click en la X
>>> 2.- Ejecutado un proceso con un evento DobleClick, (Ejemplo:
>>> Seleccionando un valor del ListBox)
>>>
>>> Al retornar al programa principal como se (Que valor retorna) con
>>> cual de las 2 formas se cerró la ventana.
>>>
>>> Saludos
>>>
>>> Ing. Guillermo Guevara C.
>>> Grupo Computación 2000
>>> Nuevo Mundo Nº 2821
>>> Jardines de la Cruz
>>> Guadalajara, Jal. 44950
>>> (33) 1078-8363 / 1078-8364
>>> www.PvWin.com
>>> soporte@PvWin.com
>>>
>>
>> Saludos:
>>
>> Por lo que veo la ventana no contiene ningún botón, ni de cerrar
>> ni de aceptar que serí­a lo más cómodo para preguntarle por
>> nModalResult al cerrarla, por lo tanto lo que puedes hacer es crear
>> una data en el formulario Text.prg
>>
>> DATA nQuienCierra INIT 0
>>
>> En el Evento DobleClick ::nQuienCierra := 1
>>
>> Luego en el formulario que la llama
>>
>> WITH Text():New( Self ):ShowModal()
>> IF :nQuienCierra = 0
>> ** Cierro con la X
>> ELSE
>> ** Cierro con DOBLECLICK
>> ENDIF
>>
>> END
>>
>> Si te decides ha poner un botón:
>>
>> Incluso aunque seleccionaras con DobleClick siempre puedes dirigir el
>> evento al contenido del botón poniendo {|| ::NombredelBotón() }
>>
>> Espero que te sirva.
>>
>> José Ramón Castro.
>
> Yo añadiria que tambien actives la propiedad lHideOnClose del
> formulario para que puedas acceder a la data que menciona Jose Ramon
> despues de cerrar el Dialog
>
> Saludos
Saludos:
No es por entrar en discusión pero es importante aclarar que yo no
Activo lHideOnClose en el formulario llamado para que no pierda
visibilidad la DATA, si lo hago bien o mal quizás sea un acosa que
necesitarí­a de una aclaración por expertos pero a mí­ me funciona sin
activar lHideOnClose, porque en el caso de activar lHideOnClose entonces
serí­amos nosotros los que tendrí­amos que cerrar con END() el Formulario
llamado:
En el ejemplo anterior la cosa se quedarí­a así­:
WITH Text():New( Self ):ShowModal()
IF :nQuienCierra = 0
** Cierro con la X
ELSE
** Cierro con DOBLECLICK
ENDIF
:END()
END WITH
En fin doctores tiene la iglesia para saber lo que es correcto en estos
casos.
José Ramón Castro.
José Ramón Castro.
Guillermo Guevara Car
Posts: 176
Joined: Sat Jan 19, 2008 5:52 pm

Valor de retorno al cerrar una ventana de di

Postby Guillermo Guevara Car » Wed Jan 30, 2008 1:15 am

Agradezco a ambos su aportación, me funcionó correctamente como me lo indicó
José Ramón
Gracias
--
Ing. Guillermo Guevara C.
Grupo Computación 2000
Nuevo Mundo Nº 2821
Jardines de la Cruz
Guadalajara, Jal. 44950
(33) 1078-8363 / 1078-8364
www.PvWin.com
soporte@PvWin.com
"José Ramón Castro" <jrcpoli@terra.es> escribió en el mensaje
news:479efbbf$1@ozsrv2.ozlan.local...
> Juan Pablo Garcia escribió:
>> José Ramón Castro Polinio escribió:
>>> Guillermo Guevara Carrillo escribió:
>>>> Desde un programa principal ejecuto la siguiente instrucción para
>>>> llamar una ventana de diálogo llamada Test.prg que contiene un ListBox
>>>>
>>>> Test():New():ShowModal()
>>>>
>>>> Al salir de esa ventana lo puedo hacer de dos formas:
>>>>
>>>> 1.- Cerrandola con un Click en la X
>>>> 2.- Ejecutado un proceso con un evento DobleClick, (Ejemplo:
>>>> Seleccionando un valor del ListBox)
>>>>
>>>> Al retornar al programa principal como se (Que valor retorna) con cual
>>>> de las 2 formas se cerró la ventana.
>>>>
>>>> Saludos
>>>>
>>>> Ing. Guillermo Guevara C.
>>>> Grupo Computación 2000
>>>> Nuevo Mundo Nº 2821
>>>> Jardines de la Cruz
>>>> Guadalajara, Jal. 44950
>>>> (33) 1078-8363 / 1078-8364
>>>> www.PvWin.com
>>>> soporte@PvWin.com
>>>>
>>>
>>> Saludos:
>>>
>>> Por lo que veo la ventana no contiene ningún botón, ni de cerrar ni
>>> de aceptar que sería lo más cómodo para preguntarle por nModalResult al
>>> cerrarla, por lo tanto lo que puedes hacer es crear una data en el
>>> formulario Text.prg
>>>
>>> DATA nQuienCierra INIT 0
>>>
>>> En el Evento DobleClick ::nQuienCierra := 1
>>>
>>> Luego en el formulario que la llama
>>>
>>> WITH Text():New( Self ):ShowModal()
>>> IF :nQuienCierra = 0
>>> ** Cierro con la X
>>> ELSE
>>> ** Cierro con DOBLECLICK
>>> ENDIF
>>>
>>> END
>>>
>>> Si te decides ha poner un botón:
>>>
>>> Incluso aunque seleccionaras con DobleClick siempre puedes dirigir el
>>> evento al contenido del botón poniendo {|| ::NombredelBotón() }
>>>
>>> Espero que te sirva.
>>>
>>> José Ramón Castro.
>>
>> Yo añadiria que tambien actives la propiedad lHideOnClose del formulario
>> para que puedas acceder a la data que menciona Jose Ramon despues de
>> cerrar el Dialog
>>
>> Saludos
> Saludos:
>
> No es por entrar en discusión pero es importante aclarar que yo no
> Activo lHideOnClose en el formulario llamado para que no pierda
> visibilidad la DATA, si lo hago bien o mal quizás sea un acosa que
> necesitaría de una aclaración por expertos pero a mí me funciona sin
> activar lHideOnClose, porque en el caso de activar lHideOnClose entonces
> seríamos nosotros los que tendríamos que cerrar con END() el Formulario
> llamado:
>
> En el ejemplo anterior la cosa se quedaría así:
>
> WITH Text():New( Self ):ShowModal()
> IF :nQuienCierra = 0
> ** Cierro con la X
> ELSE
> ** Cierro con DOBLECLICK
> ENDIF
> :END()
> END WITH
>
> En fin doctores tiene la iglesia para saber lo que es correcto en estos
> casos.
>
> José Ramón Castro.
>

Return to “Spanish”