KaisarЕсть задача: на компонентах DevExpress реализовать DropDown Main Menu.
Есть dxBarManager, dxBarPopoupMenu.
1
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 257
ClientWidth = 666
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object dxBarManager1: TdxBarManager
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Categories.Strings = (
'Default')
Categories.ItemsVisibles = (
2)
Categories.Visibles = (
True)
PopupMenuLinks = <>
UseSystemFont = True
Left = 112
Top = 64
PixelsPerInch = 96
DockControlHeights = (
0
0
28
0)
object dxBarManager1Bar1: TdxBar
Caption = 'Custom 1'
CaptionButtons = <>
DockedDockingStyle = dsTop
DockedLeft = 0
DockedTop = 0
DockingStyle = dsTop
FloatLeft = 700
FloatTop = 8
FloatClientWidth = 0
FloatClientHeight = 0
IsMainMenu = True
ItemLinks = <
item
Visible = True
ItemName = 'dxBarButton1'
end>
MultiLine = True
OneOnRow = True
Row = 0
UseOwnFont = False
Visible = True
WholeRow = True
end
object dxBarButton1: TdxBarButton
Caption = 'New Button'
Category = 0
Hint = 'New Button'
Visible = ivAlways
ButtonStyle = bsDropDown
DropDownMenu = dxBarPopupMenu1
end
end
object dxBarPopupMenu1: TdxBarPopupMenu
BarManager = dxBarManager1
ItemLinks = <>
UseOwnFont = False
Left = 40
Top = 104
PixelsPerInch = 96
end
end
Имхо...
