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

Вниз

Переключение между MDI- Child   Найти похожие ветки 

 
Igor_ ©   (2002-02-21 10:36) [0]

Есть MDI приложение как сделать чтоб доступ к дочерним окнам осуществлялся как в Word, т.е. при нажатии в меню "Окна" появлялся список MDI окон и через это меню можно было между ними переключаться.


 
Анонимщик ©   (2002-02-21 10:46) [1]

Следующий цикл формирует список окон

for i := 0 to MDIChildCount-1 do
ListBox1.Items.Add(MDIChildren[i]->Name);

А это - активация i - того дочернего окна:

newActiveHandle = MDIChildren[i].Handle;
SendMessage(MainForm1.ClientHandle, WM_MDIACTIVATE, newActiveHandle, 0);



 
Igor_ ©   (2002-02-21 11:02) [2]

А как запихать не в ListBox а в список меню. Если я добавлю строку в меню (не знаю пока правда как), то мне ещё надо обработчик нажатия этой строки меню.
И еще проблема: после изменения активного окна массив MDIChildren пересортировывается.


 
ilysha ©   (2002-02-21 11:48) [3]

Зечем такие сложности - есть заложенное в D6 решение - в ObjectInspector главной формы укажи значение свойства WindowMenu.

И сама Win будет прописывать в пункт меню открытые окна, и текущее...


 
Igor_ ©   (2002-02-21 11:59) [4]

Я пробовал - не хочет, указывал всё:

WindowMenu
Профессиональные MDI-приложения позволяют активизировать необходимое дочернее окно, выбрав его из списка в меню. Свойство WindowMenu определяет объект TMenuItem, который Delphi будет использовать для вывода списка доступных дочерних форм.
Для вывода списка TMenuItem должно быть меню верхнего уровня. Это меню имеет свойство Caption, равное swindow.

У меня получалось в этом меню именно swindow, а не список окон.


 
Анонимщик ©   (2002-02-21 12:17) [5]

Я что-то не пойму. У тебя в многооконном приложении этот список окон и так будет в подменю гавного меню "Window". Чего еще нужно?
О каком списке идет речь, собственно, что там написано должно быть?

Об остальном. В рантайме пункт в меню добавляется следующим образом. Предположим, что есть уже элемент меню File1 (типа TMenuItem). Тогда:

myPos := 5; // это позиция, куда будет вставляться новый элемент
NewItem = new TMenuItem(File1);
NewItem.Caption = "Моя строка";
File1.Add(NewItem);
File1.Insert(myPos, NewItem);
NewItem.OnClick = OpenProjectAction1Execute;

procedure TMainForm.OpenProjectAction1Execute(TObject *Sender);
begin
// здесь пишешь свою процедуру
end;

Так объясни проблему.



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

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

Наверх




Память: 0.48 MB
Время: 0.014 c
1-19137
Андре
2002-02-20 12:32
2002.03.07
TDBRichEdit


3-19063
AlexRush
2002-02-07 13:22
2002.03.07
ADO Connection String BuidDialog в RunTime...


3-19083
MZ
2002-02-07 17:46
2002.03.07
Как программно получить список псевдонимов баз данных???


7-19355
bios_i_ego
2001-12-01 13:06
2002.03.07
В Паскале было Port


1-19203
tovSuhov
2002-02-18 16:56
2002.03.07
Как правильнее сделать?