Action: IActionItem;
Action: Prognoz.Platform.Interop.Forms.ActionItem;
Свойство Action определяет действие, ассоциируемое с кнопкой ленты.
Значение свойства Action выбирается при проектировании из всплывающего списка предусмотренных действий в инспекторе объектов. Этот список формируется в процессе проектирования размещением на форме компонента ActionList и определением его свойств.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента Ribbon с наименованием «Ribbon1» и компонента ActionList, в котором создано действие с наименованием «ActionItem1». В ленте компонента «Ribbon1» создана вкладка и панель.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Category: IRibbonCategory;
RButton, SubButton1, SubButton2: IRibbonButton;
SubItems: IRibbonElementsCollection;
Begin
Self.BeginUpdate;
Category := Ribbon1.ActiveCategory;
RButton := New RibbonButton.Create;
Category.Panels.Item(0).Elements.Add(RButton);
RButton.ImageIndex := 0;
RButton.LargeImageIndex := 0;
RButton.Action := ActionItem1;
RButton.Text := "Test";
RButton.SplitButton := False;
//Подэлементы
SubButton1 := New RibbonButton.Create;
SubButton2 := New RibbonButton.Create;
SubItems := RButton.SubItems;
SubItems.Add(SubButton1);
SubItems.Add(SubButton2);
SubButton1.Action := ActionItem1;
SubButton2.Action := ActionItem1;
SubButton1.Text := "Test 1";
SubButton2.Text := "Test 2";
Self.EndUpdate;
End Sub Button1OnClick;
При нажатии на кнопку на панели активной вкладки будет создана кнопка. Для кнопки будут настроены различные свойства, а также будут созданы два подэлемента.
См. также: