Raize里面的Pagecontrol好像可以
其实你自己用spy看看是什么类，然后到网上一步都能实现的
最简单办法就是放一排按钮，也就是你说的左边的控制栏，右边是一个PageControl，然后
下面是代码
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
TabSheet9: TTabSheet;
TabSheet10: TTabSheet;
TabSheet11: TTabSheet;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
TabSheet12: TTabSheet;
Label12: TLabel;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := TSpeedButton(Sender).Tag;
end;
end.
窗体文件
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 450
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 127
Top = 0
Width = 561
Height = 423
ActivePage = TabSheet12
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'TabSheet1'
TabVisible = False
object Label1: TLabel
Left = 76
Top = 160
Width = 133
Height = 125
Caption = '1'
end
end
object TabSheet2: TTabSheet
Caption = 'TabSheet2'
ImageIndex = 1
TabVisible = False
object Label2: TLabel
Left = 76
Top = 160
Width = 6
Height = 13
Caption = '2'
end
end
object TabSheet3: TTabSheet
Caption = 'TabSheet3'
ImageIndex = 2
TabVisible = False
object Label3: TLabel
Left = 76
Top = 160
Width = 6
Height = 13
Caption = '3'
end
end
object TabSheet4: TTabSheet
Caption = 'TabSheet4'
ImageIndex = 3
TabVisible = False
object Label4: TLabel
Left = 76
Top = 160
Width = 6
Height = 13
Caption = '4'
end
end
object TabSheet5: TTabSheet
Caption = 'TabSheet5'
ImageIndex = 4
TabVisible = False
object Label5: TLabel
Left = 76
Top = 160
Width = 6
Height = 13
Caption = '5'
end
end
object TabSheet6: TTabSheet
Caption = 'TabSheet6'
ImageIndex = 5
TabVisible = False
object Label6: TLabel
Left = 76
Top = 160
Width = 6
Height = 13
Caption = '6'
end
end
object TabSheet7: TTabSheet
Caption = 'TabSheet7'
ImageIndex = 6
TabVisible = False
object Label7: TLabel
Left = 76
Top = 160
Width = 6
Height = 13
Caption = '7'
end
end
object TabSheet8: TTabSheet
Caption = 'TabSheet8'
ImageIndex = 7
TabVisible = False
object Label8: TLabel
Left = 76
Top = 160
Width = 6
Height = 13
Caption = '8'
end
end
object TabSheet9: TTabSheet
Caption = 'TabSheet9'
ImageIndex = 8
TabVisible = False
object Label9: TLabel
Left = 76
Top = 160
Width = 6
Height = 13
Caption = '9'
end
end
object TabSheet10: TTabSheet
Caption = 'TabSheet10'
ImageIndex = 9
TabVisible = False
object Label10: TLabel
Left = 76
Top = 160
Width = 12
Height = 13
Caption = '10'
end
end
object TabSheet11: TTabSheet
Caption = 'TabSheet11'
ImageIndex = 10
TabVisible = False
object Label11: TLabel
Left = 76
Top = 160
Width = 12
Height = 13
Caption = '11'
end
end
object TabSheet12: TTabSheet
Caption = 'TabSheet12'
ImageIndex = 11
TabVisible = False
object Label12: TLabel
Left = 76
Top = 160
Width = 12
Height = 13
Caption = '12'
end
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 127
Height = 423
Align = alLeft
Color = 16776176
TabOrder = 1
object SpeedButton1: TSpeedButton
Left = 0
Top = 0
Width = 125
Height = 35
GroupIndex = 1
Down = True
Caption = '1'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Tag = 10
Left = 0
Top = 350
Width = 125
Height = 35
GroupIndex = 1
Caption = '11'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton3: TSpeedButton
Tag = 11
Left = 0
Top = 386
Width = 125
Height = 35
GroupIndex = 1
Caption = '12'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton4: TSpeedButton
Tag = 1
Left = 0
Top = 35
Width = 125
Height = 35
GroupIndex = 1
Caption = '2'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton5: TSpeedButton
Tag = 2
Left = 0
Top = 70
Width = 125
Height = 35
GroupIndex = 1
Caption = '3'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton6: TSpeedButton
Tag = 3
Left = 0
Top = 105
Width = 125
Height = 35
GroupIndex = 1
Caption = '4'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton7: TSpeedButton
Tag = 4
Left = 0
Top = 140
Width = 125
Height = 35
GroupIndex = 1
Caption = '5'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton8: TSpeedButton
Tag = 5
Left = 0
Top = 175
Width = 125
Height = 35
GroupIndex = 1
Caption = '6'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton9: TSpeedButton
Tag = 6
Left = 0
Top = 210
Width = 125
Height = 35
GroupIndex = 1
Caption = '7'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton10: TSpeedButton
Tag = 7
Left = 0
Top = 245
Width = 125
Height = 35
GroupIndex = 1
Caption = '8'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton11: TSpeedButton
Tag = 8
Left = 0
Top = 280
Width = 125
Height = 35
GroupIndex = 1
Caption = '9'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton12: TSpeedButton
Tag = 9
Left = 0
Top = 315
Width = 125
Height = 35
GroupIndex = 1
Caption = '10'
Flat = True
OnClick = SpeedButton1Click
end
end
end
