cerrar automático Tform

[emeasoft]

Holla!
Tenho o Form1 que carrega o Form2 assim:
WITH Form2():New( Self )
:ShowModal()
END WITH
Tenho que esperar 5 segundos e fechar
Form2 automáticamente.
Para esperar 5 segundos tenho uma função.
Depois, como fechar o Form2 automáticamente sem digitar nada?
Grato.
Mário
www.eMeAsOfT.com.br

[emeasoft]

Complementando:
Quero encerrar o Form2 automaticamente e voltar para o Form1.
Grato.
> Holla!
>
> Tenho o Form1 que carrega o Form2 assim:
>
> WITH Form2():New( Self )
> :ShowModal()
> END WITH
>
> Tenho que esperar 5 segundos e fechar
> Form2 automáticamente.
> Para esperar 5 segundos tenho uma função.
> Depois, como fechar o Form2 automáticamente sem digitar nada?
>
> Grato.
> Mário
> www.eMeAsOfT.com.br

[jrcpoli-quitar]

Saludos:
Donde lo necesites pon esto ::oForm:Close(.T.)
Esto dice la Ayuda:
TForm:Close
Cierra el formulario. Si la propiedad lHideOnClose esta a verdadero el
formulario se oculta, en caso contrario el formulario es destruido
completamente.
Si desea poder consultar cualquier propiedad de controles de dicho
formulario después de que haya sido cerrado, es preferible utilizar la
propiedad lHideOnClose a verdadero para evitar que determinada
información deje de ser accesible, ya que en caso contrario, todos los
controles del formulario son igualmente destruidos. Cuando utilice esta
propiedad es importante que destruya completamante el formulario con su
método End después de que haya obtenido toda la información que
precisaba sino piensa reutilizar el formulario mostrándolo de nuevo.
Tipo
Sólo después de Create
Parámetros
[<lDontAsk>]:
Si verdadero no se evaluará el evento OnClose cerrándose el formulario
irremediablemente
Valor Retorno
<lSuccess>
Verdadero si éxito
José Ramón Castro.
Mário Angelini escribió:
> Holla!
>
> Tenho o Form1 que carrega o Form2 assim:
>
> WITH Form2():New( Self )
> :ShowModal()
> END WITH
>
> Tenho que esperar 5 segundos e fechar
> Form2 automáticamente.
> Para esperar 5 segundos tenho uma função.
> Depois, como fechar o Form2 automáticamente sem digitar nada?
>
> Grato.
> Mário
> www.eMeAsOfT.com.br

[emeasoft]

Ramon,
Segui sua orientação mas acusa o erro.
Em anexo, exemplo de um projeto com o erro.
O que está errado?
Grato.
Mário
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:[email=49f21641@svctag-j7w3v3j....]49f21641@svctag-j7w3v3j....[/email]
> Saludos:
>
> Donde lo necesites pon esto ::oForm:Close(.T.)
>
> Esto dice la Ayuda:
>
> TForm:Close
>
>
>
> Cierra el formulario. Si la propiedad lHideOnClose esta a verdadero el
> formulario se oculta, en caso contrario el formulario es destruido
> completamente.
>
>
>
> Si desea poder consultar cualquier propiedad de controles de dicho
> formulario después de que haya sido cerrado, es preferible utilizar la
> propiedad lHideOnClose a verdadero para evitar que determinada información
> deje de ser accesible, ya que en caso contrario, todos los controles del
> formulario son igualmente destruidos. Cuando utilice esta propiedad es
> importante que destruya completamante el formulario con su método End
> después de que haya obtenido toda la información que precisaba sino piensa
> reutilizar el formulario mostrándolo de nuevo.
>
>
>
> Tipo
> Sólo después de Create
>
> Parámetros
> [<lDontAsk>]:
> Si verdadero no se evaluará el evento OnClose cerrándose el formulario
> irremediablemente
>
> Valor Retorno
> <lSuccess>
> Verdadero si éxito
>
> José Ramón Castro.
>
> Mário Angelini escribió:
>> Holla!
>>
>> Tenho o Form1 que carrega o Form2 assim:
>>
>> WITH Form2():New( Self )
>> :ShowModal()
>> END WITH
>>
>> Tenho que esperar 5 segundos e fechar
>> Form2 automáticamente.
>> Para esperar 5 segundos tenho uma função.
>> Depois, como fechar o Form2 automáticamente sem digitar nada?
>>
>> Grato.
>> Mário
>> www.eMeAsOfT.com.br
--

Attached files teste.zip (2.4 KB)Â

[emeasoft]

OBS: estou usando Xailer 2.
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:[email=49f21641@svctag-j7w3v3j....]49f21641@svctag-j7w3v3j....[/email]
> Saludos:
>
> Donde lo necesites pon esto ::oForm:Close(.T.)
>
> Esto dice la Ayuda:
>
> TForm:Close
>
>
>
> Cierra el formulario. Si la propiedad lHideOnClose esta a verdadero el
> formulario se oculta, en caso contrario el formulario es destruido
> completamente.
>
>
>
> Si desea poder consultar cualquier propiedad de controles de dicho
> formulario después de que haya sido cerrado, es preferible utilizar la
> propiedad lHideOnClose a verdadero para evitar que determinada información
> deje de ser accesible, ya que en caso contrario, todos los controles del
> formulario son igualmente destruidos. Cuando utilice esta propiedad es
> importante que destruya completamante el formulario con su método End
> después de que haya obtenido toda la información que precisaba sino piensa
> reutilizar el formulario mostrándolo de nuevo.
>
>
>
> Tipo
> Sólo después de Create
>
> Parámetros
> [<lDontAsk>]:
> Si verdadero no se evaluará el evento OnClose cerrándose el formulario
> irremediablemente
>
> Valor Retorno
> <lSuccess>
> Verdadero si éxito
>
> José Ramón Castro.
>
> Mário Angelini escribió:
>> Holla!
>>
>> Tenho o Form1 que carrega o Form2 assim:
>>
>> WITH Form2():New( Self )
>> :ShowModal()
>> END WITH
>>
>> Tenho que esperar 5 segundos e fechar
>> Form2 automáticamente.
>> Para esperar 5 segundos tenho uma função.
>> Depois, como fechar o Form2 automáticamente sem digitar nada?
>>
>> Grato.
>> Mário
>> www.eMeAsOfT.com.br

[jrcpoli-quitar]

Saludos:
En el evento OnInitilaize de un formulario se ponen las cosas que se
quiere que se inicien de un formulario cuando aun no se ha mostrado,
pero cuando se quiere que un formulario ejecute una cosa cuando se ha
mostrado se ponen en el evento OnShow.
/*
* Projeto: teste
* Arquivo: Form3.prg
* Descrição:
* Autor:
* Data: 04-29-2009
*/
#include "Xailer.ch"
CLASS TForm3 FROM TForm
METHOD CreateForm()
METHOD FormInitialize( oSender )
ENDCLASS
#include "Form3.xfm"
//---------------------------------------------------------- --------------------
METHOD FormShow( oSender ) CLASS TForm3
*espera 2 segundos
F130(2)
*
** Con .T. no se evalua el evento OnClose
::oForm:Close(.T.) //¡¡¡Mirar la Ayuda!!!
RETURN Nil
//---------------------------------------------------------- --------------------
FUNCTION F130(f1)
*pausa sem interrup‡„o (aceita fracao 0.5)
LOCAL x01:=SECONDS()
DO WHILE SECONDS()-x01<f1
ENDDO
RETURN NIL
No lo he probado pero seguro que funciona.
José Ramón Castro
Mário Angelini escribió:
> Ramon,
> Segui sua orientação mas acusa o erro.
> Em anexo, exemplo de um projeto com o erro.
>
> O que está errado?
> Grato.
> Mário
>
> "José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es>
> escreveu na mensagem news:[email=49f21641@svctag-j7w3v3j....]49f21641@svctag-j7w3v3j....[/email]
>> Saludos:
>>
>> Donde lo necesites pon esto ::oForm:Close(.T.)
>>
>> Esto dice la Ayuda:
>>
>> TForm:Close
>>
>>
>>
>> Cierra el formulario. Si la propiedad lHideOnClose esta a verdadero
>> el formulario se oculta, en caso contrario el formulario es destruido
>> completamente.
>>
>>
>>
>> Si desea poder consultar cualquier propiedad de controles de dicho
>> formulario después de que haya sido cerrado, es preferible utilizar la
>> propiedad lHideOnClose a verdadero para evitar que determinada
>> información deje de ser accesible, ya que en caso contrario, todos los
>> controles del formulario son igualmente destruidos. Cuando utilice
>> esta propiedad es importante que destruya completamante el formulario
>> con su método End después de que haya obtenido toda la información que
>> precisaba sino piensa reutilizar el formulario mostrándolo de nuevo.
>>
>>
>>
>> Tipo
>> Sólo después de Create
>>
>> Parámetros
>> [<lDontAsk>]:
>> Si verdadero no se evaluará el evento OnClose cerrándose el formulario
>> irremediablemente
>>
>> Valor Retorno
>> <lSuccess>
>> Verdadero si éxito
>>
>> José Ramón Castro.
>>
>> Mário Angelini escribió:
>>> Holla!
>>>
>>> Tenho o Form1 que carrega o Form2 assim:
>>>
>>> WITH Form2():New( Self )
>>> :ShowModal()
>>> END WITH
>>>
>>> Tenho que esperar 5 segundos e fechar
>>> Form2 automáticamente.
>>> Para esperar 5 segundos tenho uma função.
>>> Depois, como fechar o Form2 automáticamente sem digitar nada?
>>>
>>> Grato.
>>> Mário
>>> www.eMeAsOfT.com.br
>
> ------------------------------------------------------------ ------------
>
--

[jrcpoli-quitar]

Saludos:
Serí­a interesante que leas este articulo, escrito por uno de los
creadores de Xailer.
http://xailer.info/esp/?p=22#more-22
José Ramón Castro.
Mário Angelini escribió:
> Holla!
>
> Tenho o Form1 que carrega o Form2 assim:
>
> WITH Form2():New( Self )
> :ShowModal()
> END WITH
>
> Tenho que esperar 5 segundos e fechar
> Form2 automáticamente.
> Para esperar 5 segundos tenho uma função.
> Depois, como fechar o Form2 automáticamente sem digitar nada?
>
> Grato.
> Mário
> www.eMeAsOfT.com.br

[emeasoft]

Ramón:
Funcionou.
Estou aprendendo Xailer e ainda não consigo entender bem sobre todos
os eventos, apesar de consultar o Manual.
Grato.
Mário
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:[email=49f8881d@svctag-j7w3v3j....]49f8881d@svctag-j7w3v3j....[/email]
> Saludos:
>
> En el evento OnInitilaize de un formulario se ponen las cosas que se
> quiere que se inicien de un formulario cuando aun no se ha mostrado,
> pero cuando se quiere que un formulario ejecute una cosa cuando se ha
> mostrado se ponen en el evento OnShow.
>
> /*
> * Projeto: teste
> * Arquivo: Form3.prg
> * Descrição:
> * Autor:
> * Data: 04-29-2009
> */
>
> #include "Xailer.ch"
>
> CLASS TForm3 FROM TForm
>
> METHOD CreateForm()
> METHOD FormInitialize( oSender )
>
> ENDCLASS
>
> #include "Form3.xfm"
>
> //---------------------------------------------------------- --------------------
>
> METHOD FormShow( oSender ) CLASS TForm3
>
> *espera 2 segundos
> F130(2)
> *
> ** Con .T. no se evalua el evento OnClose
> ::oForm:Close(.T.) //¡¡¡Mirar la Ayuda!!!
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> FUNCTION F130(f1)
> *pausa sem interrup‡„o (aceita fracao 0.5)
> LOCAL x01:=SECONDS()
> DO WHILE SECONDS()-x01<f1
> ENDDO
> RETURN NIL
>
> No lo he probado pero seguro que funciona.
>
> José Ramón Castro
>
> Mário Angelini escribió:
>> Ramon,
>> Segui sua orientação mas acusa o erro.
>> Em anexo, exemplo de um projeto com o erro.
>>
>> O que está errado?
>> Grato.
>> Mário
>>
>> "José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es>
>> escreveu na mensagem news:[email=49f21641@svctag-j7w3v3j....]49f21641@svctag-j7w3v3j....[/email]
>>> Saludos:
>>>
>>> Donde lo necesites pon esto ::oForm:Close(.T.)
>>>
>>> Esto dice la Ayuda:
>>>
>>> TForm:Close
>>>
>>>
>>>
>>> Cierra el formulario. Si la propiedad lHideOnClose esta a verdadero
>>> el formulario se oculta, en caso contrario el formulario es destruido
>>> completamente.
>>>
>>>
>>>
>>> Si desea poder consultar cualquier propiedad de controles de dicho
>>> formulario después de que haya sido cerrado, es preferible utilizar la
>>> propiedad lHideOnClose a verdadero para evitar que determinada
>>> información deje de ser accesible, ya que en caso contrario, todos los
>>> controles del formulario son igualmente destruidos. Cuando utilice
>>> esta propiedad es importante que destruya completamante el formulario
>>> con su método End después de que haya obtenido toda la información que
>>> precisaba sino piensa reutilizar el formulario mostrándolo de nuevo.
>>>
>>>
>>>
>>> Tipo
>>> Sólo después de Create
>>>
>>> Parámetros
>>> [<lDontAsk>]:
>>> Si verdadero no se evaluará el evento OnClose cerrándose el formulario
>>> irremediablemente
>>>
>>> Valor Retorno
>>> <lSuccess>
>>> Verdadero si éxito
>>>
>>> José Ramón Castro.
>>>
>>> Mário Angelini escribió:
>>>> Holla!
>>>>
>>>> Tenho o Form1 que carrega o Form2 assim:
>>>>
>>>> WITH Form2():New( Self )
>>>> :ShowModal()
>>>> END WITH
>>>>
>>>> Tenho que esperar 5 segundos e fechar
>>>> Form2 automáticamente.
>>>> Para esperar 5 segundos tenho uma função.
>>>> Depois, como fechar o Form2 automáticamente sem digitar nada?
>>>>
>>>> Grato.
>>>> Mário
>>>> www.eMeAsOfT.com.br
>>
>> ------------------------------------------------------------ ------------
>>
>

[emeasoft]

Realmente, muito interessante esta informação.
Grato.
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:[email=49f890a9@svctag-j7w3v3j....]49f890a9@svctag-j7w3v3j....[/email]
> Saludos:
>
> Serí­a interesante que leas este articulo, escrito por uno de los creadores
> de Xailer.
>
> http://xailer.info/esp/?p=22#more-22
>
> José Ramón Castro.
>
> Mário Angelini escribió:
>> Holla!
>>
>> Tenho o Form1 que carrega o Form2 assim:
>>
>> WITH Form2():New( Self )
>> :ShowModal()
>> END WITH
>>
>> Tenho que esperar 5 segundos e fechar
>> Form2 automáticamente.
>> Para esperar 5 segundos tenho uma função.
>> Depois, como fechar o Form2 automáticamente sem digitar nada?
>>
>> Grato.
>> Mário
>> www.eMeAsOfT.com.br