VPF::Как создать подменю для ТActionMainMenuBar и

Rohoss

Дата 20.7.2008, 08:04 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Как создать подменю для ТActionMainMenuBar и ТActionToolBar в RunTime?

Много чего перепробовал, не получается… smile

может у кого есть примерчик? smile

--------------------

Файловый менеджер Explorer.Net скачать video

Rohoss

Дата 20.7.2008, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Конечно, ActionManager есть, и к ним тоже прикручен. Сначала пробовал подменю создать через него, но тоже безрезультатно… непонятно экземпляры какого класса создавать и к чему прикручивать. smile

Ещё и не туда запостил… Модераторы, перенесите, пожалуйста в раздел Delphi smile

Это сообщение отредактировал(а) Rohoss - 20.7.2008, 20:01

--------------------

Файловый менеджер Explorer.Net скачать video

aktuba

Дата 20.7.2008, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Вот работающий кусок из программы, может поможет:

Код


procedure TfrmWorkTager.CreateButtonActions;
var
  lAction: TAction;
  lClient: TActionClient;
  Idx: Integer;
begin
  SetLength(FButtonActions, C_Statuses_Count);
  for Idx := 0 to C_Statuses_Count - 1 do
  begin
    lAction := TAction.Create(TagsActionManager);
    lAction.Caption := G_Langs.GetText(C_Text_Images[Idx]);
    lAction.Hint := lAction.Caption;
    lAction.Name := C_Type_Images[Idx];
    lAction.AutoCheck := True;
    lAction.Checked := G_Config.StatusButtons[Idx];
    lAction.ImageIndex := Idx;
    lAction.Tag := Idx;
    lAction.OnExecute := ButtonsExecute;
    // lAction.OnHint := ButtonsHint;
    lClient := TagsActionManager.ActionBars[0].Items.Add;
    TagsActionManager.AddAction(lAction, lClient);
    lAction.ActionList := TagsActionManager;
  end;
  for Idx := 0 to TagsActionManager.ActionBars[0].Items.Count - 1 do
    TagsActionManager.ActionBars[0].Items[Idx].ShowCaption := False;
end;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »