Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
Action: IActionItem;
Свойство Action определяет действие, ассоциируемое с пунктом меню.
В качестве значения свойства укажите одно из действий, которое создано в коллекции компонента ActionList. При установке действия значения всех свойств, которые заданы для пункта меню, будут игнорироваться. Вместо них будут использоваться значения соответствующих свойств выбранного действия.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента MainMenu с наименованием «MainMenu1», компонента Toolbar с наименованием «Toolbar1» и компонента ActionList с наименованием «ActionList1».
Class TESTForm: Form
MainMenu1: MainMenu;
ActionList1: ActionList;
Toolbar1: Toolbar;
Button1: Button;
MenuItem1, MenuItem2: MenuItem;
TButton1, TButton2: ToolbarButton;
Action1, Action2: ActionItem;
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
//Создание пунктов меню
MenuItem1 := New MenuItem.Create;
MenuItem2 := New MenuItem.Create;
MainMenu1.Items.Add(MenuItem1);
MainMenu1.Items.Add(MenuItem2);
//Создание кнопок на панели инструментов
TButton1 := New ToolbarButton.Create;
TButton2 := New ToolbarButton.Create;
Toolbar1.Controls.Add(TButton1);
Toolbar1.Controls.Add(TButton2);
//Создание действий и их подключение к пунктам меню/кнопкам
Action1 := New ActionItem.Create;
Action1.Caption := "Открыть";
Action1.OnExecute := Action1OnExecute;
Action2 := New ActionItem.Create;
Action2.Caption := "Закрыть";
Action2.OnExecute := Action2OnExecute;
ActionList1.AddAction(Action1);
ActionList1.AddAction(Action2);
MenuItem1.Action := Action1;
MenuItem2.Action := Action2;
TButton1.Action := Action1;
TButton2.Action := Action2;
End Sub Button1OnClick;
Sub Action1OnExecute(Sender: Object; Args: IEventArgs);
Begin
//Обработчик действия Action1
End Sub Action1OnExecute;
Sub Action2OnExecute(Sender: Object; Args: IEventArgs);
Begin
//Обработчик действия Action2
End Sub Action2OnExecute;
End Class TESTForm;
При нажатии на кнопку будут выполнены следующие действия:
В меню формы созданы два пункта меню;
На панели инструментов созданы две кнопки;
В списке действий компонента «ActionList1» созданы два действия, для действий определено базовое свойство Caption и указаны различные обработчики события OnExecute.
Созданные действия будут назначены для пунктов меню и кнопок панели инструментов. Если выбрать пункт меню или кнопку, имеющие одинаковый текст, то будет выполнено одинаковое действие.
См. также: