24-12-2012, 07:25 AM
PHP كود :
TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var wb1:TWebBrowser;
begin
wb1:=TWebBrowser(Form1.sPageControl1.ActivePage.Controls[0]);
wb1.Navigate('http://www.google.com/search?ie=UTF-8&hl=fr&q='+edt1.Text);
الان يفتح في صفحة جديدة
PHP كود :
procedure TForm1.btn1Click(Sender: TObject);
begin
wb1.Navigate('http://www.google.com/search?ie=UTF-8&hl=fr&q='+edt1.Text);
end;
procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var
New: TForm1;
begin
New := TForm1.Create(Owner);
New.Visible := true;
ppDisp := New.wb1.DefaultDispatch;
//NewApp.wb1.Navigate();
//cancel := true;
end;

