Enviar texto a una webbrowser
 

hola amigos les pido disculpa ya que segun creo este tema es parecido al otro que hize pero les pido ayuda porfavor lo que quiero hacer es crear un edit y el texto que estee en ese edit se busque en google que estara abierto en una webbrowser pero la verdad no se como puedo enviar el texto y simular el click en google

Espero me puedan ayudar gracias:rolleyes:

Disculpen creo que este tema deberia ir a zona internet disculpenme por el gran error :(

Gerson12,

Revisa el siguiente código tomado del link : http://www.delphipages.com/forum/sho...d.php?t=152828

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    Function OpenObject(strObjectPath:string) : boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function TForm1.OpenObject(strObjectPath:string) : boolean;
var
   h : integer;
   zFname: array[0..79] of Char;

begin

   result := true;

   h := ShellExecute
        (
           0,
           'open',
           StrPcopy(zFname,'http://www.google.com/search?hl=en&q=' + strobjectpath),
           NIL,
           NIL,
           SW_SHOWNORMAL
        );

   if h < 33 then result := false;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if not OpenObject(Edit1.Text) then
      MessageDlg('Can''t open default WEB Browser.', mtError,[mbOk], 0);
end;

end.

El código anterior invoca al Browser por defecto y realiza una búsqueda en Google pasando un TEdit como parámetro.

Espero sea útil :)

Nelson.

Hola.
No me queda claro si deseas enviarle el texto a un navegador externo a tu aplicación o si estas utilizando el componente TWebBrowser.
Si el caso es el último, basta con que hagas:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.google.com/search?hl=es&q=' + Edit1.Text);
end;

En el otro caso utiliza la sugerencia de nlsgarcia.

Saludos. :)

gracias a ambos :)