加分吧。200'哦!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls,shdocvw;type
TForm1 = class(TForm)
PageControl1: TPageControl;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
list:=tlist.Create;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
list.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
var
tab:ttabsheet;
web:twebbrowser;
begin
tab:=ttabsheet.Create(self);
with tab do
begin
Parent:=self;
PageControl:=PageControl1;
caption:='Tab';
web:=twebbrowser.create(self);
list.Add(web);
with web do
begin
TWinControl(web).Parent:=tab;
web.Align:=alclient;
web.Navigate('www.163.com');
end;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
(PageControl1.ActivePage.Controls[0] as twebbrowser).Refresh;
end;end.
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls,shdocvw;type
TForm1 = class(TForm)
PageControl1: TPageControl;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
list:=tlist.Create;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
list.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
var
tab:ttabsheet;
web:twebbrowser;
begin
tab:=ttabsheet.Create(self);
with tab do
begin
Parent:=self;
PageControl:=PageControl1;
caption:='Tab';
web:=twebbrowser.create(self);
list.Add(web);
with web do
begin
TWinControl(web).Parent:=tab;
web.Align:=alclient;
web.Navigate('www.163.com');
end;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
(PageControl1.ActivePage.Controls[0] as twebbrowser).Refresh;
end;end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货