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