这个效果是使用DevExpressBar来完成的! 先看效果图: 具体代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, dxBar, cxClasses, Menus, ExtCtrls, StdCtrls, dxGDIPlusClasses; type TForm1 = class(TForm) dxBarManager1: TdxBarManager; dxBarDockControl1: TdxBarDockControl; dxBarManager1Bar1: TdxBar; New1: TdxBarButton; Open1: TdxBarButton; Save1: TdxBarButton; SaveAs1: TdxBarButton; Print1: TdxBarButton; PrintSetup1: TdxBarButton; Exit1: TdxBarButton; File1: TdxBarSubItem; Undo1: TdxBarButton; Repeatcommand1: TdxBarButton; Cut1: TdxBarButton; Copy1: TdxBarButton; Paste1: TdxBarButton; PasteSpecial1: TdxBarButton; Find1: TdxBarButton; Replace1: TdxBarButton; GoTo1: TdxBarButton; Links1: TdxBarButton; Object1: TdxBarButton; Edit1: TdxBarSubItem; NewWindow1: TdxBarButton; ile1: TdxBarButton; Cascade1: TdxBarButton; ArrangeAll1: TdxBarButton; Hide1: TdxBarButton; Show1: TdxBarButton; Window1: TdxBarSubItem; Contents1: TdxBarButton; Index1: TdxBarButton; Commands1: TdxBarButton; Procedures1: TdxBarButton; Keyboard1: TdxBarButton; SearchforHelpOn1: TdxBarButton; utorial1: TdxBarButton; HowtoUseHelp1: TdxBarButton; About1: TdxBarButton; Help1: TdxBarSubItem; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; Label1: TLabel; Panel1: TPanel; procedure FormCreate(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private procedure wmnchittest(var msg: twmnchittest); message wm_nchittest; protected procedure CreateParams(var Params: TCreateParams); override; public procedure InitView; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.InitView; begin SetWindowLong(Handle, { 当前窗体句柄 } GWL_STYLE, { 表示当前是要设置新的窗体(普通)样式 } // 得到指定窗体信息 GetWindowLong(Handle, GWL_STYLE) and (not WS_CAPTION)); { 去掉样式(s)中的“标题”样式 } Height := ClientHeight; Width := ClientWidth; // Image1.Picture.Assign(Application.Icon); end; procedure TForm1.wmnchittest(var msg: twmnchittest); begin inherited; // if (htclient = msg.result) then // msg.result := htcaption; end; procedure TForm1.FormCreate(Sender: TObject); begin // InitView; Label1.Caption := self.Caption; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin Close; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin if self.WindowState = wsNormal then self.WindowState := wsMaximized else self.WindowState := wsNormal end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin Application.Minimize; end; procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; self.Perform(WM_SysCommand, SC_DragMove, 0); end; procedure TForm1.CreateParams(var Params: TCreateParams); begin BorderStyle := bsNone; inherited; // Params.ExStyle := Params.ExStyle or WS_EX_CONTROLPARENT;//WS_EX_STATICEDGE; Params.Style := Params.Style or WS_EX_APPWINDOW;// or WS_SIZEBOX; end; end. 对应的窗体代码为: object Form1: TForm1 Left = 424 Top = 358 Width = 555 Height = 428 Caption = 'FireDragon ERP 3.02.2564.369' Color = 16036651 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 547 Height = 23 Align = alTop BevelOuter = bvNone ParentColor = True TabOrder = 4 DesignSize = ( 547 23) object Label1: TLabel Left = 6 Top = 4 Width = 279 Height = 15 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'Label1' Transparent = True OnMouseDown = Label1MouseDown end object SpeedButton1: TSpeedButton Left = 521 Top = 2 Width = 23 Height = 18 Anchors = [akTop, akRight] Flat = True Glyph.Data = { C2070000424DC20700000000000036000000280000001E000000150000000100 1800000000008C07000000000000000000000000000000000000F8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF0A775EA9865EA9865F0A775F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF0A775 EA9865EA9865F0A775F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA98 65FFFFFFFFFFFFEA9865F0A775F8BC8DF8BC8DF8BC8DF0A775EA9865FFFFFFFF FFFFEA9865F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D 0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFF FFFFFFFFFFFFEA9865F0A775F8BC8DF0A775EA9865FFFFFFFFFFFFFFFFFFEA98 65F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF0A775EA9865FFFFFFFF FFFFFFFFFFEA9865F0A775EA9865FFFFFFFFFFFFFFFFFFEA9865F0A775F8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF0A775EA9865FFFFFFFFFF FFFFFFFFEA9865FFFFFFFFFFFFFFFFFFEA9865F0A775F8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF0A775EA9865FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFEA9865F0A775F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF0A775EA9865FFFFFFFFFFFFFF FFFFEA9865F0A775F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF0A775EA9865FFFFFFFFFFFFFFFFFFFFFFFFFFFF FFEA9865F0A775F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF0A775EA9865FFFFFFFFFFFFFFFFFFEA9865FFFFFFFFFFFFFFFFFF EA9865F0A775F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF0A7 75EA9865FFFFFFFFFFFFFFFFFFEA9865F0A775EA9865FFFFFFFFFFFFFFFFFFEA 9865F0A775F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D 0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFF FFFFFFFFFFFFEA9865F0A775F8BC8DF0A775EA9865FFFFFFFFFFFFFFFFFFEA98 65F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFFFFFFFFEA 9865F0A775F8BC8DF8BC8DF8BC8DF0A775EA9865FFFFFFFFFFFFEA9865F8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF0A775EA9865EA9865F0A775F8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF0A775EA9865EA9865F0A775F8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8D0000} OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 473 Top = 2 Width = 23 Height = 18 Anchors = [akTop, akRight] Flat = True Glyph.Data = { C2070000424DC20700000000000036000000280000001E000000150000000100 1800000000008C07000000000000000000000000000000000000F8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D 0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF0A775EA9865EA9865EA9865EA9865 EA9865EA9865EA9865EA9865EA9865F0A775F8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFEA9865F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DEA9865FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFEA9865F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF0A775EA9865EA9865EA9865EA9865EA9865EA9865EA9865EA9865 EA9865F0A775F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D 0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8D0000} OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 497 Top = 2 Width = 23 Height = 18 Anchors = [akTop, akRight] Flat = True Glyph.Data = { C2070000424DC20700000000000036000000280000001E000000150000000100 1800000000008C07000000000000000000000000000000000000F8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF0A775EA9865EA9865EA9865EA9865EA9865EA9865EA9865EA9865EA9865 EA9865EA9865F0A775F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA98 65FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFEA9865F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D 0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFF EA9865EA9865EA9865EA9865EA9865EA9865EA9865EA9865EA9865FFFFFFEA98 65F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFFEA9865F8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFFEA9865F8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFFEA9865F8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFFEA9865F8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFFEA9865F8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFFEA9865F8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DEA9865FFFFFFEA9865F8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DEA9865FFFFFFEA9865F8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DEA9865FFFFFFEA9865EA9865EA9865EA9865EA9865EA9865EA98 65EA9865EA9865FFFFFFEA9865F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DEA9865FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFEA9865F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA98 65FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFEA9865F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D 0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEA98 65F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DEA9865FFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEA9865F8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF0A775EA9865EA9865EA9865EA98 65EA9865EA9865EA9865EA9865EA9865EA9865EA9865F0A775F8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8D0000F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8 BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8D F8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC8DF8BC 8DF8BC8D0000} OnClick = SpeedButton3Click end object dxBarDockControl1: TdxBarDockControl Left = 285 Top = 3 Width = 184 Height = 18 Align = dalNone Anchors = [akTop, akRight] BarManager = dxBarManager1 UseOwnColor = True end end object dxBarManager1: TdxBarManager AllowReset = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #26032#32048#26126#39636 Font.Style = [] Categories.Strings = ( 'Default' 'File' 'Edit' 'Window' 'Help' 'Menus') Categories.ItemsVisibles = ( 2 2 2 2 2 2) Categories.Visibles = ( True True True True True True) NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom] PopupMenuLinks = <> Style = bmsUseLookAndFeel UseF10ForMenu = False UseSystemFont = True Left = 72 Top = 80 DockControlHeights = ( 0 0 0 0) object dxBarManager1Bar1: TdxBar AllowClose = False AllowCustomizing = False AllowQuickCustomizing = False AllowReset = False BorderStyle = bbsNone Caption = 'Main Menu' CaptionButtons = <> Color = 16036651 DockControl = dxBarDockControl1 DockedDockControl = dxBarDockControl1 DockedLeft = 0 DockedTop = 0 FloatLeft = 0 FloatTop = 0 FloatClientWidth = 0 FloatClientHeight = 0 IsMainMenu = True ItemLinks = < item Visible = True ItemName = 'File1' end item Visible = True ItemName = 'Edit1' end item Visible = True ItemName = 'Window1' end item Visible = True ItemName = 'Help1' end> MultiLine = True OneOnRow = True Row = 0 UseOwnFont = False UseRestSpace = True Visible = True WholeRow = True end object New1: TdxBarButton Caption = '&New' Category = 1 Visible = ivAlways end object Open1: TdxBarButton Caption = '&Open...' Category = 1 Visible = ivAlways end object Save1: TdxBarButton Caption = '&Save' Category = 1 Visible = ivAlways end object SaveAs1: TdxBarButton Caption = 'Save &As...' Category = 1 Visible = ivAlways end object Print1: TdxBarButton Caption = '&Print...' Category = 1 Visible = ivAlways end object PrintSetup1: TdxBarButton Caption = 'P&rint Setup...' Category = 1 Visible = ivAlways end object Exit1: TdxBarButton Caption = 'E&xit' Category = 1 Visible = ivAlways end object Undo1: TdxBarButton Caption = '&Undo' Category = 2 Visible = ivAlways ShortCut = 16474 end object Repeatcommand1: TdxBarButton Caption = '&Repeat <command>' Category = 2 Visible = ivAlways end object Cut1: TdxBarButton Caption = 'Cu&t' Category = 2 Visible = ivAlways ShortCut = 16472 end object Copy1: TdxBarButton Caption = '&Copy' Category = 2 Visible = ivAlways ShortCut = 16451 end object Paste1: TdxBarButton Caption = '&Paste' Category = 2 Visible = ivAlways ShortCut = 16470 end object PasteSpecial1: TdxBarButton Caption = 'Paste &Special...' Category = 2 Visible = ivAlways end object Find1: TdxBarButton Caption = '&Find...' Category = 2 Visible = ivAlways end object Replace1: TdxBarButton Caption = 'R&eplace...' Category = 2 Visible = ivAlways end object GoTo1: TdxBarButton Caption = '&Go To...' Category = 2 Visible = ivAlways end object Links1: TdxBarButton Caption = 'Lin&ks...' Category = 2 Visible = ivAlways end object Object1: TdxBarButton Caption = '&Object' Category = 2 Visible = ivAlways end object NewWindow1: TdxBarButton Caption = '&New Window' Category = 3 Visible = ivAlways end object ile1: TdxBarButton Caption = '&Tile' Category = 3 Visible = ivAlways end object Cascade1: TdxBarButton Caption = '&Cascade' Category = 3 Visible = ivAlways end object ArrangeAll1: TdxBarButton Caption = '&Arrange All' Category = 3 Visible = ivAlways end object Hide1: TdxBarButton Caption = '&Hide' Category = 3 Visible = ivAlways end object Show1: TdxBarButton Caption = '&Show...' Category = 3 Visible = ivAlways end object Contents1: TdxBarButton Caption = '&Contents' Category = 4 Visible = ivAlways end object Index1: TdxBarButton Caption = '&Index' Category = 4 Visible = ivAlways end object Commands1: TdxBarButton Caption = 'Co&mmands' Category = 4 Visible = ivAlways end object Procedures1: TdxBarButton Caption = '&Procedures' Category = 4 Visible = ivAlways end object Keyboard1: TdxBarButton Caption = '&Keyboard' Category = 4 Visible = ivAlways end object SearchforHelpOn1: TdxBarButton Caption = '&Search for Help On' Category = 4 Visible = ivAlways end object utorial1: TdxBarButton Caption = '&Tutorial' Category = 4 Visible = ivAlways end object HowtoUseHelp1: TdxBarButton Caption = '&How to Use Help' Category = 4 Visible = ivAlways end object About1: TdxBarButton Caption = '&About...' Category = 4 Visible = ivAlways end object File1: TdxBarSubItem Caption = '&File' Category = 5 Visible = ivAlways ItemLinks = < item Visible = True ItemName = 'New1' end item Visible = True ItemName = 'Open1' end item Visible = True ItemName = 'Save1' end item Visible = True ItemName = 'SaveAs1' end item BeginGroup = True Visible = True ItemName = 'Print1' end item Visible = True ItemName = 'PrintSetup1' end item BeginGroup = True Visible = True ItemName = 'Exit1' end> end object Edit1: TdxBarSubItem Caption = '&Edit' Category = 5 Visible = ivAlways ItemLinks = < item Visible = True ItemName = 'Undo1' end item Visible = True ItemName = 'Repeatcommand1' end item BeginGroup = True Visible = True ItemName = 'Cut1' end item Visible = True ItemName = 'Copy1' end item Visible = True ItemName = 'Paste1' end item Visible = True ItemName = 'PasteSpecial1' end item BeginGroup = True Visible = True ItemName = 'Find1' end item Visible = True ItemName = 'Replace1' end item Visible = True ItemName = 'GoTo1' end item BeginGroup = True Visible = True ItemName = 'Links1' end item Visible = True ItemName = 'Object1' end> end object Window1: TdxBarSubItem Caption = '&Window' Category = 5 Visible = ivAlways ItemLinks = < item Visible = True ItemName = 'NewWindow1' end item Visible = True ItemName = 'ile1' end item Visible = True ItemName = 'Cascade1' end item Visible = True ItemName = 'ArrangeAll1' end item BeginGroup = True Visible = True ItemName = 'Hide1' end item Visible = True ItemName = 'Show1' end> end object Help1: TdxBarSubItem Caption = '&Help' Category = 5 Visible = ivAlways ItemLinks = < item Visible = True ItemName = 'Contents1' end item Visible = True ItemName = 'Index1' end item Visible = True ItemName = 'Commands1' end item Visible = True ItemName = 'Procedures1' end item Visible = True ItemName = 'Keyboard1' end item Visible = True ItemName = 'SearchforHelpOn1' end item Visible = True ItemName = 'utorial1' end item Visible = True ItemName = 'HowtoUseHelp1' end item Visible = True ItemName = 'About1' end> end end end