| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
В MainMenu пробежаться по всем MenuItem любой степени вложенности
lookin © (2006-03-23 19:53:00)Вопрос - как?
lookin (2006-03-23 20:38:00) [1]Решил сделать по другому...
Рамиль (2006-03-23 20:27:00) [2]
> А как оно нужно делать с TAction?
Ну есть же в помощи Using TAction.
Рамиль (2006-03-23 20:22:00) [3]Если хочешь все меню пробежать, то примерно так
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;
lookin (2006-03-23 20:13:00) [4][2] Рамиль © (23.03.06 19:58)
А как оно нужно делать с TAction?
lookin (2006-03-23 20:01:00) [5]Возврат к первому вопросу, так как же пробежаться?
lookin (2006-03-23 19:59:00) [6]Ага...
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, т.е. не нету, а не использую...
Рамиль (2006-03-23 19:58:00) [7]
> TMenuItem.Enabled:=false, то у связанной TToolButton Enabled
> не меняется...
так не знаю, но через TAction все прекрасно дизеблится.
lookin (2006-03-23 19:56:00) [8]А еще лучше... Почему при связке TMenuItem-TToolButton(на TTollBar) работает все, кроме понятия Enabled, который назначается TMenuItem? Иными словами, когда в рантайме делается TMenuItem.Enabled:=false, то у связанной TToolButton Enabled не меняется...
| |
