TdxBarManager->TdxBar->
TcxBarEditItem 像单项框
Properties 设定为RadioGroup 这样就是单项框了。
TdxBarSubItem 下拉菜单
TdxBarEdit 像 labelEdit
TdxBarEdit
//电召 object dxbrmngr1: TdxBarManager Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [] Categories.Strings = ( 'Default') Categories.ItemsVisibles = ( 2) Categories.Visibles = ( True) PopupMenuLinks = <> UseSystemFont = False Left = 336 Top = 184 DockControlHeights = ( 0 0 0 0) object dxbrmngr1Bar1: TdxBar AllowClose = False AllowCustomizing = False AllowQuickCustomizing = False AllowReset = False BorderStyle = bbsNone Caption = #33756#21333#26639 CaptionButtons = <> Color = 15789015 DockControl = dxbrdckcntrl1 DockedDockControl = dxbrdckcntrl1 DockedLeft = 0 DockedTop = 0 FloatLeft = 231 FloatTop = 361 FloatClientWidth = 101 FloatClientHeight = 168 ItemLinks = < item Visible = True ItemName = 'btnSys' end item Visible = True ItemName = 'btnFeedBack' end item Visible = True ItemName = 'dxbrbtn1' end item Visible = True ItemName = 'dxbrbtnSubscribleOrNo' end item Visible = True ItemName = 'dxbrbtn3' end item Visible = True ItemName = 'cxBarEditItem1' end> NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom] OneOnRow = True Row = 0 ShowMark = False SizeGrip = False UseOwnFont = False UseRecentItems = False Visible = True WholeRow = True end object btnSys: TdxBarSubItem Caption = #31995#32479#37197#32622 Category = 0 Visible = ivAlways ItemLinks = < item Visible = True ItemName = 'dxbtnSetIniSequenceNo' end item Visible = True ItemName = 'dxbtnEditOperatorNO' end> end object dxbtnSetIniSequenceNo: TdxBarButton Caption = #35774#32622#35746#21333#24207#21015#21495 Category = 0 Hint = #35774#32622#35746#21333#24207#21015#21495 Visible = ivAlways OnClick = dxbtnSetIniSequenceNoClick end object dxbtnEditOperatorNO: TdxBarButton Caption = #35774#32622#25805#20316#21592#24037#21495 Category = 0 Hint = #35774#32622#25805#20316#21592#24037#21495 Visible = ivAlways OnClick = dxbtnEditOperatorNOClick end object btnFeedBack: TdxBarSubItem Caption = #21453#39304#20449#24687 Category = 0 Visible = ivAlways ItemLinks = < item Visible = True ItemName = 'dxbtnComplain' end> end object dxbtnComplain: TdxBarButton Caption = #29992#25143#25237#35785 Category = 0 Hint = #29992#25143#25237#35785 Visible = ivAlways OnClick = dxbtnComplainClick end object dxbrbtn1: TdxBarButton Align = iaClient Caption = ' | ' Category = 0 Enabled = False Hint = ' | ' Visible = ivAlways end object dxbrbtnSubscribleOrNo: TdxBarButton Caption = #35746#38405#36710#36742 Category = 0 Hint = #35746#38405#36710#36742 Visible = ivAlways ButtonStyle = bsChecked Glyph.Data = { DE030000424DDE030000000000003600000028000000180000000D0000000100 180000000000A803000000000000000000000000000000000000FFFFFFFCFFFF FCFFFFFFFFFF9D9D9D979695FFFFFFFFFFFFF5FFFFF6FFFFF6FFFFF6FFFFF6FF FFF6FFFFF6FFFFF6FFFFF5FFFFFAFFFFFFFFFF989A9A9B9B99FFFFFFF5F7F7FE FEFED9D2CF9180749B8F88575A5B928B8F8E8587545254B2A49DA68D7EA58F81 A68F82A68F81A78E82A68E82A68F82A79082A88F82AC9A915254559B92988279 7C5D5B59E6EFF4FFFFFFC09A85F2A576E08E625E6771DCCED2E2D8E27A7D819D 694AFCAF7BFAA875FAA976F9A874FBA672FAA571FAA470FAA26FFCAA72E69466 5D6771DED2D5E1D6DF75777CCA9980E4D2C9DAA688FFB782FFCF9F0E1C26A6A5 ACCCC7CF000F1BF3B792FFBE92FFBD94FFC097FFC29BFFC59EFFC8A3FFCAA8FE CBAAFFCBAAFFCA9B1F2C36ACA7B1C1C0C9000C1CF4AF7CEAA77FDDCDC2FACEB4 FFCFAAC99C802423262224249A7862FFE0BDFBBB96FBBA97FBB995FBBA95FBB9 94FBB892FFBB93F8B690FBB892FFCEAFC6987D2225252B2927C38B6DFFE3AAE7 C2A3ECF2F6C8D2D8E7E1DFFFF7D5FFE3C3FFDBBEFFFFF1FAC1A5FFE4BCFFE1BB FFE1BBFFDDB7FFD8B3FFD3B0FFC7A8FAC3A4FFDDB9FFCAA6FFF7D8FFD6B9FFDA BDFFFFEBE7C2BEBDB8E1FFFFFFEFEDECD1D4D6EFD7CEE6CFB9F7D3B4E8B79B9F 86798C7665B7A58EBCAE93D1BCA1E5CBAEFADDC0F0D6C6FFD9BBC6B59AFFE2C0 FFF1CDFFFEDFFFEACFFFE7BE2A2BF7DCD2CBFFFFFFFFFFFFFAFAFAEFF6F9DFE0 E3F0ECEC615F5CA07C633B3B3B0000000000000000000D08071B1513322923D2 B19C0000001E1B1A5C5147BFA48EFFE9CBFED3B1121669FEFCF1FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF999EA2B28F76A7928407121C191E210206 08000000000000AB9485242A2D12181B00000000000047403DF4CFBB464A31FF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE2EFF7CDBEB6 FBDCC97B76705C5A593F3D3D1216169C8B814042424443444241403E3D3D554F 4CD9C5B6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFDEE1E3FFFDF3EDDED5E1D9D2DACEC4E1D0C6C8C0B8CFC8C2 DAD1CBE3D6CCEBDDD4E3E1E2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F5F9FFFFFFFFFFFFFFFFFFFD FEFEFFFFFFFFFFFFFFFFFFFFFFFFB7BCBEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFEFEFFFEFFFFFFFFFFFEFFFFFEFFFFFFFFFFFFFFFFFFFFFFEEEEEEFFFFFFFF FFFF} PaintStyle = psCaptionGlyph OnClick = dxbrbtnSubscribleOrNoClick end object cxBarEditItem1: TcxBarEditItem Caption = #29366#24577#65306#26410#30331#38470 Category = 0 Hint = #29366#24577#65306 Visible = ivAlways Width = 100 PropertiesClassName = 'TcxLabelProperties' end object dxbrbtn3: TdxBarButton Caption = ' | ' Category = 0 Enabled = False Hint = ' | ' Visible = ivAlways DropDownEnabled = False end object dxbrbtn2: TdxBarButton Caption = '|' Category = 0 Enabled = False Hint = ' | ' Visible = ivAlways end object cxbrdtmVehicleOnLine: TcxBarEditItem Align = iaRight Category = 0 MergeKind = mkNone Visible = ivAlways ShowCaption = True Width = 200 PropertiesClassName = 'TcxLabelProperties' end end
//-- object bmManager: TdxBarManager Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #24494#36719#38597#40657 Font.Style = [] CanCustomize = False Categories.Strings = ( 'Default') Categories.ItemsVisibles = ( 2) Categories.Visibles = ( True) ImageOptions.Images = imageList PopupMenuLinks = <> UseBarHintWindow = False UseSystemFont = True Left = 272 Top = 96 DockControlHeights = ( 0 0 0 0) object dbActVehicleTool: TdxBar AllowClose = False AllowCustomizing = False AllowQuickCustomizing = False Caption = #27963#21160#36710#36742#24037#20855#26639 CaptionButtons = <> Color = clGradientInactiveCaption DockControl = bdcActVechicle DockedDockControl = bdcActVechicle DockedLeft = 0 DockedTop = 0 FloatLeft = 506 FloatTop = 8 FloatClientWidth = 0 FloatClientHeight = 0 ItemLinks = < item UserDefine = [udWidth] UserWidth = 215 Visible = True ItemName = 'cxbViewChose1' end item BeginGroup = True Visible = True ItemName = 'btnCancelSubscribe' end item Visible = True ItemName = 'btnCancelAllSubscribe' end item Visible = True ItemName = 'btnClearActList' end item Visible = True ItemName = 'btnShowTrack' end item Visible = True ItemName = 'btnUnShowTrack' end item Visible = True ItemName = 'dxBarSubItem1' end item Visible = True ItemName = 'btnCopy' end item Visible = True ItemName = 'btnVehicleInfo' end item Visible = True ItemName = 'EditVehicleReNO' end> NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom] OneOnRow = True Row = 0 ShowMark = False UseOwnFont = False Visible = True WholeRow = True end object btnCancelSubscribe: TdxBarButton Caption = #20572#27490#30417#25511 Category = 0 Hint = #20572#27490#30417#25511 Visible = ivAlways ImageIndex = 0 OnClick = btnCancelSubscribeClick end object btnCancelAllSubscribe: TdxBarButton Caption = #20572#27490#30417#25511#25152#26377#36710#36742 Category = 0 Hint = #20572#27490#30417#25511#25152#26377#36710#36742 Visible = ivAlways ImageIndex = 1 OnClick = btnCancelAllSubscribeClick end object btnShowTrack: TdxBarButton Caption = #26174#31034#20840#36712#36857 Category = 0 Hint = #26174#31034#20840#36712#36857 Visible = ivAlways ImageIndex = 5 OnClick = btnShowTrackClick end object btnUnShowTrack: TdxBarButton Caption = #19981#26174#31034#36712#36857 Category = 0 Hint = #19981#26174#31034#36712#36857 Visible = ivAlways ImageIndex = 6 OnClick = btnUnShowTrackClick end object dxBarSubItem1: TdxBarSubItem Caption = #36873#25321 Category = 0 Visible = ivAlways ItemLinks = < item Visible = True ItemName = 'btnSelectAll' end item Visible = True ItemName = 'btnSelectOpp' end item Visible = True ItemName = 'btnSelectNone' end> end object btnSelectAll: TdxBarButton Caption = #20840#36873 Category = 0 Hint = #20840#36873 Visible = ivAlways OnClick = btnSelectAllClick end object btnSelectOpp: TdxBarButton Caption = #21453#36873 Category = 0 Hint = #21453#36873 Visible = ivAlways OnClick = btnSelectOppClick end object btnSelectNone: TdxBarButton Caption = #19981#36873 Category = 0 Hint = #19981#36873 Visible = ivAlways OnClick = btnSelectNoneClick end object btnVehicleInfo: TdxBarButton Caption = #36710#36742#35814#32454#20449#24687 Category = 0 Hint = #36710#36742#35814#32454#20449#24687 Visible = ivAlways ImageIndex = 9 OnClick = btnVehicleInfoClick end object EditVehicleReNO: TdxBarEdit Caption = #36710#29260#24555#29031 Category = 0 Hint = #36710#29260#24555#29031 Visible = ivAlways OnKeyDown = EditVehicleReNOKeyDown OnKeyPress = EditVehicleReNOKeyPress ShowCaption = True Width = 100 end object dxBarSubItem2: TdxBarSubItem Caption = 'New SubItem' Category = 0 Visible = ivAlways ItemLinks = <> end object btnClearActList: TdxBarButton Caption = 'New Button' Category = 0 Hint = #28165#38500#27963#21160#21015#34920 Visible = ivAlways ImageIndex = 2 OnClick = btnClearActListClick end object cxbViewChose1: TcxBarEditItem Caption = #35270#22270#65306 Category = 0 Hint = #35270#22270#65306 Visible = ivAlways OnCurChange = cxbViewChose1CurChange ShowCaption = True Width = 100 PropertiesClassName = 'TcxRadioGroupProperties' Properties.Columns = 3 Properties.DefaultValue = 0 Properties.Items = < item Caption = #35746#38405 Value = 0 end item Caption = #19994#21153#35746#38405 Value = 1 Tag = 1 end item Caption = #20840#37096 Value = 2 Tag = 2 end> InternalEditValue = 0 end object btnCopy: TdxBarButton Caption = 'New Button' Category = 0 Hint = #22797#21046 Visible = ivAlways ImageIndex = 8 OnClick = btnCopyClick end end