ok.
在窗体上放一个工具栏，在工具栏上放三个TButton；
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus,ComCtrls,StdCtrls, ToolWin;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
ToolBar1: TToolBar;
procedure SetValue( SheetNum:integer =3);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
CPageControl:TPageControl;
CTabSheet:TTabSheet;
CButton:TButton;
procedure ButtonClick(Sender:TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses Unit2;
procedure TForm1.ButtonClick(Sender:TObject);
var
TempTS:TTabSheet;
begin
if (Sender is TButton) and ((TButton(Sender).Parent) is TTabsheet) then
TempTs:=TTabSheet(TButton(Sender).Parent)
else
Exit;
with Sender as TButton do
ShowMessage(Format('%s%s%s%s%s',['所点击的按钮所在页：',TempTs.Caption,#13,'按钮的序号为:',IntToStr(Tag)]));
end;
procedure TForm1.SetValue( SheetNum:integer =3);
var
I,J:integer;
begin
Form1.Color:=clBtnFace;
CPageControl:=TPageControl.Create(Self);
CPageControl.Parent:=Form1;
CPageControl.Align:=alClient;
for I:=1 to SheetNum do
begin
CTabSheet:=TTabSheet.Create(CPageControl);
CTabSheet.PageControl:=CPageControl;
CTabSheet.Parent:=CPageControl;
CTabSheet.Caption:=Format('%s%s',['Tab',IntToStr(I)]);
CTabSheet.Name:=CTabSheet.Caption;
for J:=1 to 5 do
begin
CButton:=TButton.Create(CTabSheet);
CButton.Parent:=CTabSheet;
CButton.Font.Size:=12;
CButton.Left:=150;
CButton.Top:=5+J*40;
CButton.Height:=35;
CButton.Width:=250;
CButton.Caption:=Format('%s%s%s%s',[CTabSheet.Caption,'中的第',IntToStr(J),'个按钮']);
CButton.Tag:=J;
CButton.OnClick:=ButtonClick;
end;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i,j:integer;
begin
if CPageControl=nil then exit;
i:=CPageControl.ControlCount-1;
for j:=0 to i do
begin
if CPageControl.Controls[0] is TTabSheet then
TTabSheet(CPageControl.Controls[0]).Free;
end;
CPageControl.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:='设置(3页)';
SetValue;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
I:integer;
begin
Button3.Caption:='删除一页';
if CPageControl=nil then exit;
I:=CPageControl.PageCount;
if I=1 then
begin
CPageControl.Visible:=False;
Form1.Color:=clBtnShadow;
CPageControl.Free;
Exit;
end;
CPageControl.ActivePage:=CPageControl.Pages[0];
CPageControl.Pages[I-1].Visible:=False;
CPageControl.Pages[I-1].Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button2.Caption:='增加一页';
if CPageControl=nil then exit;
CTabSheet:=TTabSheet.Create(CPageControl);
CTabSheet.Parent:=CPageControl;
CTabSheet.PageControl:=CPageControl;
CTabSheet.Caption:=Format('%s%s',['Tab',IntToStr(CPageControl.PageCount)]);
end;
end.
可以吧，可以删，
