abrir URL

[emeasoft]

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.

[jrcpoli-quitar]

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.

[Mario Angelini]

Ramon, mas uma vez muito agradecido.
Mário
"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.

[Mario Angelini]

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.

[jrcpoli-quitar]

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

[ignacio]

Mario,
Para ponerlo en un botón:
ShellExecute( 0, "open", cURL, 0, 0, SW_SHOWNORMAL )
Saludos
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escribió
en el mensaje news:[email=4a39f89b@svctag-j7w3v3j....]4a39f89b@svctag-j7w3v3j....[/email]
> 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.
>>

[jrcpoli-quitar]

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

[jrcpoli-quitar]

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

[emeasoft]

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

[emeasoft]

Ramon, Lo tengo en:
xailer.info:
Messages Un conjunto de utilidades para Xailer
Gracias.
Mário