Ramón:
Como encontrar as funçíµes WaitOn e WaitOff, abaixo?
Cómo encontrar las funciones WaitOn y WaitOff a continuación?
Mário.
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:[email=4a3a057f@svctag-j7w3v3j....]4a3a057f@svctag-j7w3v3j....[/email]
> Mario:
>
> Si quieres probar antes si tienes conexión con internet puedes probar esta
> función antes de ejecutar el ShellExecute.
>
> //Comprobar la conexión a Internet
> Function IsInternet(lMessage)
> Local lOk:=.F.
>
> Default lMessage To .F.
>
> WaitOn("Conectado a Internet.......")
> WITH OBJECT TInternet():New( )
> lOK:=:CheckConnection("
http://www.google.es")
> End
> WaitOff()
>
> If lMessage .And. !lOk
> MsgStop("No tiene activa la conexión a Internet necesaria para este
> cometido, conectese a Internet y pruebe de nuevo.")
> Endif
>
> Return lOk
>
> Esta es una función de Bingen Ugaldebere, publicada en el foro público el
> día 08/06/2009
>
> José Ramón Castro.
>
> José Ramón Castro Polinio escribió:
>> Mario:
>>
>> Quizás este ejemplo te pueda orientar mas, basado en un ejemplo tuyo.
>>
>> José Ramón Castro.
>>
>> José Ramón Castro Polinio escribió:
>>> Saludos:
>>>
>>> Es que el ThyperLink es un configurable como un botón no sé para que
>>> necesitas el botón, ni el evento OnClick, no es necesario, pon desde el
>>> IDE el THyperLink en el formulario y ya está.
>>>
>>> José Ramón Castro.
>>>
>>> Mario Angelini escribió:
>>>> Ramon, mas o que estou querendo é colocar o hyperlink
>>>> dentro de um ButtonClick ou MenuClick...
>>>>
>>>> METHOD Button1Click( oSender ) CLASS TForm2
>>>>
>>>>> assim não funciona
>>>>
>>>> WITH OBJECT THyperlink():Create()
>>>> :cURL := "
http://www.fcrm.es"
>>>> END
>>>>
>>>> RETURN Nil
>>>>
>>>>
>>>> "José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es>
>>>> escreveu na mensagem news:[email=4a392713@svctag-j7w3v3j....]4a392713@svctag-j7w3v3j....[/email]
>>>>> Saludos:
>>>>>
>>>>> Mira el control THyperLink
>>>>>
>>>>> WITH OBJECT ::oHyperLink1 := THyperLink():New( Self )
>>>>> :SetBounds( 76, 448, 106, 14 )
>>>>> :cText := "
http://www.fcrm.es"
>>>>> :nAnchors := akLEFTBOTTOM
>>>>> :nClrText := clYellow
>>>>> :nClrPane := clNavy
>>>>> :cBalloon := e"Pulsa aquí si quieres visitar la página Web de la
>>>>> FederaciónrnColombófila de la Región de Murcia"
>>>>> :cTooltipTitle := "Página Web"
>>>>> :nTooltipIcon := tiINFO
>>>>> :cURL := "
http://www.fcrm.es"
>>>>> :Create()
>>>>> END
>>>>>
>>>>> José Ramón Castro.
>>>>>
>>>>> Mário Angelini escribió:
>>>>>> Bom dia,
>>>>>> Com faço para em um OnClick abrir uma URL?
>>>>>>
>>>>>> Con un OnClick Qué debo hacer para abrir una URL?
>>>>>>
>>>>>> Grato
>>>>>>
>>>>>> Mário.
>>>>