ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FindWindow! (SOS!)
2 сообщений из 2, страница 1 из 1
FindWindow! (SOS!)
    #32276653
zDIV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zDIV
Участник
Для большого дела нужно найти Handle одного окна, упражняюсь-загоняюсь с группой апишных функций FindWindow и никак не въеду... Вот код...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
...
  H1 := GetForegroundWindow;
  S1 := GetWindowClassName(H1);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('ForegroundWindow: ' + S1 + ' ' + IntToStr(H1));
  H2 := GetParent(H1);
  if H2 =  0  then Exit;
  S2 := GetWindowClassName(H2);
  Memo1.Lines.Add('ParentWindow: ' + S2 + ' ' + IntToStr(H2));
  H3 := GetTopWindow(H2);
  while H3 <>  0  do
  begin
    S3 := GetWindowClassName(H3);
    Memo1.Lines.Add('ChildWindow: ' + S3 + ' ' + IntToStr(H3));
    H3 := GetNextWindow(H3, GW_HWNDNEXT);
  end;
...

И вот что он возвращает...

ForegroundWindow: #32770 1204
ParentWindow: TInternetSiteServicerForm 1220
ChildWindow: TButton 1268
ChildWindow: TButton 1248
ChildWindow: TButton 1216
ChildWindow: Shell Embedding 1176

Почему ForegroundWindow указывает на своего ParentWindow, а при сканировании ChildWindows, ForegroundWindow среди них не оказывается? Чего я не догоняю?
...
Рейтинг: 0 / 0
26.09.2003, 12:56
| Ответить | Цитировать | Написать  
FindWindow! (SOS!)
    #32276872
zDIV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zDIV
Участник
Потерянный ForegroundWindow оказался в Z-последовательности вместе со свом Parent!? Вот вам и логика Windows!?
...
Рейтинг: 0 / 0
26.09.2003, 14:50
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FindWindow! (SOS!)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]