作WEB浏览器遇到的问题1

Question

通常有四种,TabControl、PageControl、Notebook&TabSet、TabbedNoteBook
每个页面调用webbrowser需要动态生成控件！

Answer 1

你应该选择使用PageControl.procedure TForm1.FormCreate(Sender: TObject);
var
   i:Integer;
begin
  with PageControl1 do
    for i := 0 to 9 do 
begin
      with TTabSheet.Create(Self) do
      begin
        PageControl := PageControl1;
        Pages.TabVisible := true;
        Caption := 'Seite: ' + IntToStr(i);
      end;
end;
这是动态生成的一个例子,产生组件并有选择的显示他.
是在Form的Oncreate事件里面加入的代码.
你当然可以在自己的事件里面加入这个代码,例如按纽的onclick事件
摘录自
http://www.delphi-board.profihost.de/

Answer 2

当然说明是我写的了,德国的网站不会说这个的,吼吼~~
procedure TForm1.FormCreate(Sender: TObject);
var
   i:Integer;
begin
  with PageControl1 do
    for i := 0 to 9 do
//循环 10 次
     begin
      with TTabSheet.Create(Self) do
      begin
        PageControl := PageControl1;
        Pages.TabVisible := (i mod 2 =0);
//将 循环次数跟显示与否关系起来
        Caption := 'Seite: ' + IntToStr(i);
      end;
end;
end.
刚刚忘记注释了

Answer 3

我倒呀,代码贴错了,原来是老德写错了呀.
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, LbButton, ComCtrls ;type
  TForm1 = class(TForm)
    Button1: TButton;
    PageControl1: TPageControl;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var
   i:Integer;
begin
  with PageControl1 do
    for i := 0 to 9 do
//循环 10 次
     begin
      with TTabSheet.Create(Self) do
      begin
        PageControl := PageControl1;
        Pages[i].TabVisible := (i mod 2 =0);
//将 循环次数跟显示与否关系起来
        Caption := 'Seite: ' + IntToStr(i);
//显示标签对应的索引
      end;
end;
end;
end.

Answer 4

怎样才能让每个页面调用webbrowser

Answer 5

我忘记告诉你了,要先添加一个pageControl控件和button控件然后添加代码,再将button1的onclick事件连接上,不然Delphi一定报错.
每个页面里面创建一个WebBrower,设置对齐方式为cilent就可以.
我胡乱写的一个未完成的程序:
http://202.102.240.91/~cc800/soft/WebMail.exe

Answer 6

webbrowser 应该是动态生成的，并且pagecontrol中的页也是动态生成的
怎么能每个页面都创建一个webrower呢你上面的程序是按一下按钮就生成了几个页面了

Answer 7

把刚生成的webbrowser.parent赋为pagecontrol中刚生成的sheet;
procedure TFrmIE.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
NewWB:TWebBrowser;
         NewTS:TTabSheet;
begin
New:=true;
NewWB:=TWebbrowser.Create(self);
NewTS:=TTabSheet.create(self);
         NewWB.parent:=NewTS;
         NewTS.parent:=Pagecontrl1;
ppDisp:=NewWB.Application;
end;

Answer 8

怎样才能让每个页面调用webbrowser上面的还没能实现，再求助