Как добавить выпадающее меню к элементу действия во время выполнения - PullRequest
Новая
       12

Как добавить выпадающее меню к элементу действия во время выполнения

2 голосов
/ 09 ноября 2011

Я использую следующий метод для создания ActionClient с действием во время выполнения. 

procedure TMainForm.AddToProjectHistory(Path: string);
var
    NewOption: TAction;
    ActionClient: TActionClientItem;
begin
    NewOption := TAction.Create(self);
    NewOption.ActionList := ActionManager1;
    NewOption.Caption := Path;
    NewOption.OnExecute := ProjectHistoryExecute;
    ActionClient := TActionClientItem(aToolBarFile.ActionClient.Items[0].Items.Add);
    ActionClient.Action := NewOption;
    ActionClient.Caption := Path;
end;

Это прекрасно работает, если в списке уже есть элемент, но совсем не работает, если нет

например. если я добавлю элемент во время разработки, тогда я могу добавить больше элементов во время выполнения

enter image description here enter image description here

Но если я ничего не добавляю во время разработки, нет раскрывающегося списка для отображения списка элементов, после добавления элементов раскрывающийся список не появляется.

enter image description here

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

Delphi 2005

Ответы [ 2 ]

2 голосов
/ 09 ноября 2011

VCL автоматически создает кнопки управления типа, который зависит от того, есть ли у элемента дочерние элементы. По умолчанию (и в зависимости от настройки стиля ActionManager) для ActionClientItem, который имеет дочерние элементы, создается кнопка TXPStyleDropDownBtn, а для бездетного ActionClientItem - TXPStyleButton.

Поэтому, когда первый дочерний элемент добавляется во время выполнения, кнопка имеет неправильный тип. Изменение типа этой кнопки потребует уничтожения текущей кнопки и полного и ручного создания новой кнопки. Это должно быть возможно, но не пытались, потому что:

Действительно самое простое решение - обмануть VCL, добавив дочерний элемент во время разработки, и удалить этот элемент при создании формы: 

procedure TForm1.FormCreate(Sender: TObject);
begin
  aToolBarFile.ActionClient.Items[0].Items[0].Free;
end;
0 голосов
/ 29 октября 2016

если вы создадите actionclient типа «context», ему не нужно будет менять тип кнопки. Меню откроется, когда вы щелкнете правой кнопкой мыши по кнопке.

...