Valor de retorno al cerrar una ventana de di

[Guillermo Guevara Car]

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]

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]

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]

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.

[Guillermo Guevara Car]

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$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> 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.
>