Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Меню дочерних форм   Найти похожие ветки 

 
MonoLife ©   (2010-03-12 08:02) [0]

Приветствую!
В MDI-приложении MainForm.WindowMenu, к примеру, равен N1 (TMenuItem).
К нему добавляются итемы открытых дочерних форм. Как найти эти динамические итемы?
N1.count показывает только количество итемов, созданных в дизайне.


 
И. Павел ©   (2010-03-12 08:53) [1]

А у меня все прекрасно работало, и Count увеличивался:

procedure TForm1.btn1Click(Sender: TObject);
var mi:TMenuItem;
begin
 mi := TMenuItem.Create(self);
 N1.Insert(N1.Count, mi);
 mi.Caption := "Новый пункт меню "+IntToStr(N1.Count);
 Caption:=N1.Items[N1.Count-1].Caption;
end;


 
MonoLife ©   (2010-03-12 09:06) [2]


> А у меня все прекрасно работало, и Count увеличивался

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


 
Amir   (2010-03-12 11:54) [3]

Никак иначе кроме как "поитемным" сравнением "своих" с "чужими"
А зачем это вообще-то нужно ?


 
MonoLife ©   (2010-03-12 15:00) [4]


> Никак иначе кроме как "поитемным" сравнением "своих" с "чужими"

Чтоб сравнить "свои" с "чужими" надо сначала эти "чужие" найти, чего я не могу)

> А зачем это вообще-то нужно ?

Хотелось присвоить их свойства кнопкам, чтоб не писать свои обработчики на активацию дочерних форм


 
Amir   (2010-03-12 16:40) [5]

>Хоте/лось присвоить их свойства кнопкам, чтоб не писать свои обработчики на активацию >дочерних форм

Что такое "обработчики на активациию дочерних форм" ?


 
MonoLife ©   (2010-03-12 16:50) [6]


> Что такое "обработчики на активациию дочерних форм" ?

то, что выполняется при клике на эти пункты меню - становится активной дочерняя форма, связанная с определенным итемом..


 
MonoLife ©   (2010-03-12 18:04) [7]

Я все время задаю вопросы на которые нет ответов(



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

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

Наверх




Память: 0.48 MB
Время: 0.199 c
2-1274079491
pro_xaoc
2010-05-17 10:58
2010.08.27
удаление последнего символа


2-1266564186
oleg1963lora
2010-02-19 10:23
2010.08.27
Как маскировать исключение EDatabaseError?


15-1266214599
Дмитрий С
2010-02-15 09:16
2010.08.27
У вас работает virtual treeview в delphi2010?


2-1271953943
Б
2010-04-22 20:32
2010.08.27
Как убрать заголовок окна с панели задач?


2-1267511178
@!!ex
2010-03-02 09:26
2010.08.27
Как изменить внешний вид TPageControl?