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.
>