下面这段是动态生成TTabSheet的。生成可以。。但是我怎么按单独把它会一个个关闭呢？？按当前的TTabSheet关闭，怎么做？

[holy520]

下面这段是动态生成TTabSheet的。生成可以。。但是我怎么按单独把它会一个个关闭呢？？按当前的TTabSheet关闭，怎么做？




unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Shdocvw, ComCtrls; type
TForm1 = class(TForm)
PageControl1: TPageControl;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
Web : TWebBrowser;
public
{ Public-Deklarationen }
end; var
Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
var
NewTab : TTabSheet; begin
NewTab:=TTabSheet.Create(Self);
NewTab.Visible := True;
NewTab.Caption := 'Browser';
NewTab.PageControl := PageControl1;
Web:=TWebBrowser.Create(NewTab);
NewTab.InsertControl(Web);
Web.Align:=alClient;
Web.Navigate('http://business.3cts.com');
end; end.

[yurenjf]

type
TForm1 = class(TForm)
Button1: TButton;
PageControl1: TPageControl;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
NewTab : TTabSheet; //*****
web:TWebBrowser;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
NewTab:=TTabSheet.Create(Self);
NewTab.Visible := True;
NewTab.Caption := 'Browser';
NewTab.PageControl := PageControl1;
Web:=TWebBrowser.Create(NewTab);
NewTab.InsertControl(Web);
Web.Align:=alClient;
Web.Navigate('http://business.3cts.com');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
NewTab.Free;
end;