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

Вниз

Проблемы с MDI   Найти похожие ветки 

 
AlexandrK   (2004-07-26 18:04) [0]

Перевожу MDI-проект на KOL&MCK.
Что бы несколько раз не открывать одно и то же дочернее окно - ищу его по заголовку, если нахожу, переношу вверх (BringToFront), а дальше надо это окно сделать активным, а не делается:(
Как активировать дочернее окно?
Спасибо и удачи всем


 
Vladimir Kladov   (2004-07-26 19:24) [1]

послать клиентскому окну WM_MDIACTIVATE.


 
AlexandrK   (2004-07-27 10:16) [2]

Спасибо.
т.е.
надо сделать так
Sendmessage(MainForm.MDIClient1.Handle,wm_MDIActivate,0,lParam)
где -
lParamHi=MainForm.MDIClient1.Children[i].Handle
lParamLo=>Sendmessage(MainForm.MDIClient1.Handle,wm_MDIGetActive,0,h)
но когда я посылаю wm_MDIGetActive вылетает "Runtime Error 216 at 77D49DDB".
Я что-то не так делаю?


 
AlexandrK   (2004-07-27 13:32) [3]

Получил handle активной формы
handle:=LOWORD(Sendmessage(MainForm.MDIClient1.Handle,wm_MDIGetActive,0,0))
Есть Handle формы, которую хочу активировать, есть Handle формы, которую хочу деактивировать.
а вот это Sendmessage(MainForm.MDIClient1.Handle,wm_MDIActivate,0,lParam)
не работает :(


 
AlexandrK   (2004-07-27 16:08) [4]

Все, разобрался -
Sendmessage(MainForm.MDIClient1.Handle,wm_MDIActivate,MainForm.MDIClient1.Children[i].Handle,0)


 
Vladimir Kladov   (2004-07-27 16:29) [5]

PostMessage( MDIClient1.Handle, WM_MDIACTIVATE, F2.Handle, 0 );
у меня работает.


 
AlexandrK   (2004-07-29 09:43) [6]

спасибо, у меня тоже заработало



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

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

Наверх




Память: 0.47 MB
Время: 0.044 c
1-1106729873
NightStranger
2005-01-26 11:57
2005.02.13
Окно запроса


14-1106412049
vecna
2005-01-22 19:40
2005.02.13
Ну вот, купил я се КПК


3-1105622498
Russko
2005-01-13 16:21
2005.02.13
IBDataSet1.Insert


4-1103398664
pomashok
2004-12-18 22:37
2005.02.13
key_event


1-1106922133
L.asker
2005-01-28 17:22
2005.02.13
Отладчик не останавливает на брекпойнтах