Главная страница
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.012 c
14-68020
JibSkeart
2003-07-04 16:54
2003.07.21
EhLib как сделать чтобы работал без IDE


14-67986
unknown
2003-07-03 17:35
2003.07.21
win98 shutdown time


7-68105
DelphiLover
2003-05-11 08:50
2003.07.21
Консоль


3-67707
OlegID
2003-06-27 10:38
2003.07.21
Разве Делфи не воспринимает тип (uniqueidentifier) в МССКЛ ?


1-67783
Flint
2003-07-07 12:51
2003.07.21
TThread