上面是界面
下面是带码:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel6: TPanel;
Panel8: TPanel;
Image2: TImage;
Label7: TLabel;
Panel10: TPanel;
Image6: TImage;
Label14: TLabel;
Panel12: TPanel;
Image7: TImage;
Label15: TLabel;
Notebook2: TNotebook;
Label2: TLabel;
SpeedButton4: TSpeedButton;
SpeedButton7: TSpeedButton;
Label1: TLabel;
SpeedButton11: TSpeedButton;
Label23: TLabel;
Label24: TLabel;
SpeedButton13: TSpeedButton;
SpeedButton15: TSpeedButton;
Label27: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton1: TSpeedButton;
Label3: TLabel;
Image8: TImage;
Image9: TImage;
procedure Label14Click(Sender: TObject);
procedure Label7Click(Sender: TObject);
procedure Label15Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Label14Click(Sender: TObject);
begin
Notebook2.ActivePage:='cxtj';
Panel8.Align:=alTop;
Panel10.Align:=alTop;
Panel12.Align:=alBottom;
end;
procedure TForm1.Label7Click(Sender: TObject);
begin
Notebook2.ActivePage:='xxbj';
Panel12.Align:=alBottom;
Panel10.Align:=alBottom;
end;
procedure TForm1.Label15Click(Sender: TObject);
begin
Notebook2.ActivePage:='bbdy';
Panel8.Align:=alTop;
Panel10.Align:=alTop;
Panel12.Align:=alTop;
end;