Форум: "Основная";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
ВнизВ 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.014 c