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

Вниз

Отловить Handle дочернего окна   Найти похожие ветки 

 
sapsi   (2003-05-21 10:19) [0]

Добрый день.
Как можно отловит хэндл дочернего окна.
Пользуюсь
FindWindowEx
Получаю сначала Хэндл родительского, а вместо дочернего - NULL.
Но хэндл дочернего не получаю.
В чем причина?
Если можно, пример работающего кода.
Спасибо.


 
Игорь Шевченко ©   (2003-05-21 10:23) [1]

Что значит "отловить handle дочернего окна" ?


 
sapsi   (2003-05-21 10:59) [2]

получить его


 
Игорь Шевченко ©   (2003-05-21 11:06) [3]

Как пытаешься получить (код) ?


 
sapsi   (2003-05-21 11:34) [4]

Ну например, есть два окна, главное и дочернее form1 - главное, form2 - дочернее.

var handle, childhandle: hwnd;
begin

handle:=findwindow("tform1",nil);
childhandle:=findwindow("tform2",nil);
if childhandle<>0 then sendmessage(childhandle,wm_syscommand,sc_minimize,0);
end;

Должна ли происходить минимизация mdi child окна? Она не происходит.

if handle<>0 then sendmessage(handle,wm_syscommand,sc_minimize,0);
эта строчка отрабатывает (для главного окна).


 
Игорь Шевченко ©   (2003-05-21 11:47) [5]

А childhandle не равен ли нулю ?


 
sapsi   (2003-05-21 12:25) [6]

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


 
Игорь Шевченко ©   (2003-05-21 13:08) [7]

The FindWindow function retrieves the handle to the top-level window whose class name and window name match the specified strings. This function does not search child windows.

Прочитаешь или перевести ?

MDIChild всегда является дочерним окном.


 
Игорь Шевченко ©   (2003-05-21 13:09) [8]


procedure TfMain.Minimize1Click(Sender: TObject);
var
hChild : HWND;
begin
hChild := FindWindowEx(Self.ClientHandle, 0, "TfChild", nil);
if hChild <> 0 then
PostMessage(hChild, WM_SYSCOMMAND, SC_MINIMIZE, 0)
else
ShowMessage("No child");
end;


 
sapsi   (2003-05-21 14:12) [9]

спасибо



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

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

Наверх




Память: 0.48 MB
Время: 0.013 c
1-67844
Man
2003-07-07 18:51
2003.07.21
использование форм-шаблонов


3-67733
Till
2003-06-29 12:41
2003.07.21
SQLЗапрос


3-67714
Sliften
2003-06-25 22:34
2003.07.21
можно ли прграмно дабовлят в таблицу новые колонки


3-67734
Shtukos
2003-06-29 14:15
2003.07.21
BDE выдает ошибку, как перевести в ADO


3-67718
Bless
2003-06-27 15:35
2003.07.21
Непонятный синтаксис