Abrir Navegador por defecto con URL Android Delphi XE7

[wolfran_hack]

Siempre utilice:

ShellExecute(0, 'OPEN', PChar('http://www.clubdelphi.com/'), '', '', SW_SHOWNORMAL);

¿Cómo puedo tener el mismo comportamiento (la apertura de un enlace en el navegador por defecto), en Android?

[AgustinOrtu]

Con TWebBrowser?

[wolfran_hack]

la idea es usar el navegador externo, chrome, firefox, opera, el que tenga el android.

[AgustinOrtu]

En Firemonkey TWebBrowser es un wrapper del navegador nativo

[aposi]

uses
Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android;


procedure TForm3.Button1Click(Sender: TObject);
var Intent: JIntent;
begin
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.setData(StrToJURI('http://www.clubdelphi.com'));
SharedActivity.startActivity(Intent);
end;

[wolfran_hack]

me da error en:

Intent.setData(StrToJURI('http://www.clubdelphi.com'));
SharedActivity.startActivity(Intent);

[wolfran_hack]

Solucionado:

uses
..., Androidapi.Helpers;