如题,急等解答,拜托各位大侠!

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      sheet: TTabSheet;
      wb: TWebBrowser;
    begin
      sheet := TTabSheet.Create(Self);
      sheet.Parent := PageControl1;
      sheet.PageControl := PageControl1;
      sheet.Visible := True;
      wb := TWebBrowser.Create(Self);
      TWinControl(wb).Parent := sheet;
      wb.Align := alClient;
      wb.Visible := True;
      wb.Navigate('www.google.com');
    end;
      

  2.   

    uses ShDocVw'
    procedure TForm1.Button1Click(Sender: TObject);
    var
        tabsheet1 : TTabSheet;
      webbrowser1 : TWebBrowser;
    begin
      tabsheet1 :=  TTabSheet.Create(self);
      with tabsheet1 do
      begin
        parent := pagecontrol1;
        PageControl := PageControl1;
        tabvisible := true;
      end;
      webbrowser1 := TWebBrowser.Create(self);
      TWinControl(webbrowser1).parent := tabsheet1;
      webbrowser1.Align := alclient;
      webbrowser1.Navigate('www.csdn.net');
      webbrowser1.Visible := true;
    end;
      

  3.   

    非常谢谢sysu(死树) ,能给我解释下TWinControl(wb).Parent := sheet吗?我不熟悉!谢谢!
      

  4.   

    因为wb.Parent是IDispatch类型的,要把它强制转换成TWinControl才能设置Parent属性。
      

  5.   

    谢谢sysu(死树) 和Drate(鸟窝里的虫) !