لماذا يعرض TWebbrowser الصفحات خارج البرنامج
#6
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; 
الرد


الردود في هذا الموضوع
لماذا يعرض TWebbrowser الصفحات خارج البرنامج - بواسطة onexite - 24-12-2012, 07:25 AM

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم