Delphi Кнопка С Выпадающим Меню

Delphi предоставляет возможности для создания выпадающих меню для кнопок, что позволяет расширить функциональность простых кнопок.

Для создания кнопки с выпадающим меню в Delphi необходимо использовать компонент TSpeedButton и компонент TActionList. На компонент TSpeedButton следует назначить действие (action) из TActionList, затем в свойствах действия указать дочерние действия, которые будут отображаться в выпадающем меню.

Для добавления действий в TActionList необходимо использовать контекстное меню компонента в редакторе форм. Кроме того, можно добавлять действия и вручную, используя методы и свойства TActionList.

Пример кода:

ButtonAction := TAction.Create(Self);
ButtonAction.Caption := 'Main Action';
SpeedButton.Action := ButtonAction;

ChildAction := TAction.Create(Self);
ChildAction.Caption := 'Child Action';
ChildAction.OnExecute := ChildActionExecute;
ButtonAction.ActionList := ActionList;
ButtonAction.AutoCheck := False;
ChildAction.ActionList := ActionList;
ButtonAction.SubMenuImages := ImageList;
ChildAction.ImageIndex := 0;
ButtonAction.Tag := 1000;
ChildAction.Tag := 1001;
ButtonAction.SecondaryShortCuts := 'd';
ChildAction.SecondaryShortCuts := 'c';
ActionList.Images := ImageList;
ActionList.Color := SpeedButton.Color;
ActionList.Items.Add(ButtonAction);
ButtonAction.ActionComponent := SpeedButton;
ButtonAction.SecondaryShortCuts := 'g';
ButtonAction.Enabled := True;
ButtonAction.Visible := True;
ChildAction.Visible := True;
ChildAction.Enabled := True;
ActionList.Images := ImageList;
ActionList.Color := SpeedButton.Color;
ActionList.Items.Add(ChildAction);