、手順は次のとおり
- ブランクフォームにTRibbon、イメージリスト、及びActionManagerを加えます。 ImageManagerをActionManagerにリンクします。
- Edit-> Copyのようないくつかのダミーアクションを追加すると、自動的にテスト用のイメージが得られます。
- 右クリックし、QuickAccessToolbarを追加し、右クリックしてアプリケーションメニューを追加します。
set Form.DoubleBuffered true、Form.GlassFrame.Enabled true。
ActionManagerをダブルクリックします。これにより、アクションマネージャのプロパティダイアログが開きます。 [ツールバー]タブに移動し、[RibbonQuickAccessToolbar1]をクリックまたはダブルクリックして、そのツールバーにフォーカスを当てます。この手順は重要ですが、これを行わない限り項目を追加するのは難しいようです。
アクションマネージャのプロパティダイアログで、アクションページに移動し、アクションリストにイメージが表示されているコピー/ペーストのようなアクションをフォーム上の選択した領域にドラッグします。
イメージを含む2番目のアイテムをQATに追加するほうが、最初のアイテムを追加する方が簡単です。
それはここでは、2009年
にあなたのために働くなら、私に教えてくださいDFMコンテンツMINUS画像一覧内容は次のとおりです。
object Form5: TForm5
Left = 0
Top = 0
Caption = 'Form5'
ClientHeight = 337
ClientWidth = 527
Color = clBtnFace
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
GlassFrame.Enabled = True
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Ribbon1: TRibbon
Left = 0
Top = 0
Width = 527
Height = 143
ActionManager = ActionManager1
ApplicationMenu.Menu = RibbonApplicationMenuBar1
Caption = 'Ribbon1'
QuickAccessToolbar.ActionBar = RibbonQuickAccessToolbar1
ExplicitLeft = 272
ExplicitTop = 120
ExplicitWidth = 0
StyleName = 'Ribbon - Luna'
object RibbonQuickAccessToolbar1: TRibbonQuickAccessToolbar
Left = 49
Top = 1
Width = 99
Height = 24
ActionManager = ActionManager1
end
object RibbonApplicationMenuBar1: TRibbonApplicationMenuBar
ActionManager = ActionManager1
OptionItems = <>
RecentItems = <>
end
end
object ImageList1: TImageList
Left = 288
Top = 184
Bitmap = {
494C010105000800080010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
....
}
end
object ActionManager1: TActionManager
ActionBars = <
item
Items = <
item
Action = EditCopy1
ImageIndex = 1
ShowCaption = False
ShortCut = 16451
end
item
Action = EditCopy1
ImageIndex = 1
ShowCaption = False
ShortCut = 16451
end
item
Action = EditPaste1
ImageIndex = 2
ShowCaption = False
ShortCut = 16470
end>
ActionBar = RibbonQuickAccessToolbar1
AutoSize = False
end
item
Items = <
item
ChangesAllowed = [caModify]
Items = <
item
Action = EditCopy1
ImageIndex = 1
ShortCut = 16451
end
item
Caption = 'ActionClientItem1'
end>
Caption = 'ActionClientItem0'
KeyTip = 'F'
end>
ActionBar = RibbonApplicationMenuBar1
AutoSize = False
end>
Images = ImageList1
Left = 288
Top = 120
StyleName = 'Ribbon - Luna'
object EditCut1: TEditCut
Category = 'Edit'
Caption = 'Cu&t'
Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
ImageIndex = 0
ShortCut = 16472
end
object EditCopy1: TEditCopy
Category = 'Edit'
Caption = '&Copy'
Hint = 'Copy|Copies the selection and puts it on the Clipboard'
ImageIndex = 1
ShortCut = 16451
end
object EditPaste1: TEditPaste
Category = 'Edit'
Caption = '&Paste'
Hint = 'Paste|Inserts Clipboard contents'
ImageIndex = 2
ShortCut = 16470
end
object EditSelectAll1: TEditSelectAll
Category = 'Edit'
Caption = 'Select &All'
Hint = 'Select All|Selects the entire document'
ShortCut = 16449
end
object EditUndo1: TEditUndo
Category = 'Edit'
Caption = '&Undo'
Hint = 'Undo|Reverts the last action'
ImageIndex = 3
ShortCut = 16474
end
object EditDelete1: TEditDelete
Category = 'Edit'
Caption = '&Delete'
Hint = 'Delete|Erases the selection'
ImageIndex = 4
ShortCut = 46
end
end
end
は、ここでは、実行時に次のようになります。
将来の訪問者のためにスクリーンショットを提供することができますか? –
...このコントロール(TRibbon)に関連するDFMの内容。 –
私はそれに取り組んでいます、私は非SOのユーザーのためにこれを求めています。 –