Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Меню дочерних форм [D7, XP]

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

MonoLife (2010-03-12 18:04:00) [1]
Я все время задаю вопросы на которые нет ответов(

MonoLife (2010-03-12 16:50:00) [2]

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

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

Amir (2010-03-12 16:40:00) [3]
>Хоте/лось присвоить их свойства кнопкам, чтоб не писать свои обработчики на активацию >дочерних форм

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

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

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

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

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

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

Amir (2010-03-12 11:54:00) [5]
Никак иначе кроме как "поитемным" сравнением "своих" с "чужими"
А зачем это вообще-то нужно ?

MonoLife (2010-03-12 09:06:00) [6]

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

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

И. Павел (2010-03-12 08:53:00) [7]
А у меня все прекрасно работало, и 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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »