Текущий архив: 2006.04.30;
Скачать: CL | DM;

Вниз

В MainMenu пробежаться по всем MenuItem любой степени вложенности   Найти похожие ветки 

← →
lookin ©   (2006-03-23 19:53) [0]

Вопрос - как?

---

← →
lookin ©   (2006-03-23 19:56) [1]

А еще лучше... Почему при связке TMenuItem-TToolButton(на TTollBar) работает все, кроме понятия Enabled, который назначается TMenuItem? Иными словами, когда в рантайме делается TMenuItem.Enabled:=false, то у связанной TToolButton Enabled не меняется...

---

← →
Рамиль ©   (2006-03-23 19:58) [2]

> TMenuItem.Enabled:=false, то у связанной TToolButton Enabled
> не меняется...

так не знаю, но через TAction все прекрасно дизеблится.

---

← →
lookin ©   (2006-03-23 19:59) [3]

Ага...

The toolbar does not dynamically track any changes to the menu specified by Menu. That is, it sets the tool buttons to reflect the set of items in the menu at the point when the application sets this property, and ignores any subsequent changes.

Жаль...

Рамиль, у меня нету TAction, т.е. не нету, а не использую...

---

← →
lookin ©   (2006-03-23 20:01) [4]

Возврат к первому вопросу, так как же пробежаться?

---

← →
lookin ©   (2006-03-23 20:13) [5]

[2] Рамиль ©   (23.03.06 19:58)

А как оно нужно делать с TAction?

---

← →
Рамиль ©   (2006-03-23 20:22) [6]

Если хочешь все меню пробежать, то примерно так

procedure TForm1.FindMenuItems(Menu: TMainMenu);
 procedure FindSubMenu(AItem: TMenuItem);
 var
   i: integer;
 begin
   for i := 0 to AItem.Count - 1 do
   begin
     FindSubMenu(AItem.Items[i]);
   end;
 end;
var
 i: integer;
begin
 for i := 0 to Menu.Items.Count - 1 do
 begin
   FindSubMenu(Menu.Items[i]);
 end;
end;

---

← →
Рамиль ©   (2006-03-23 20:27) [7]

> А как оно нужно делать с TAction?

Ну есть же в помощи Using TAction.

---

← →
lookin ©   (2006-03-23 20:38) [8]

Решил сделать по другому...

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.30;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.046 c