Enviar texto a una webbrowser

[Gerson12]

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

[Gerson12]

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

[[nlsgarcia]]

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.

[ecfisa]

Hola.

Empezado por Gerson12

...el texto que estee en ese edit se busque en google que estara abierto en una webbrowser...

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.

[Gerson12]

gracias a ambos