powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Найти хендл окна верхнего уровня
7 сообщений из 7, страница 1 из 1
Найти хендл окна верхнего уровня
    #39603339
Error519
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть кнопка, которая лежит на панели. Как найти хендл главного окна? Есть для этого какая нибудь функция?
На ум пришло в цикле перебирать
Код: pascal
1.
while GetParent(wnd) > 0 do
...
Рейтинг: 0 / 0
Найти хендл окна верхнего уровня
    #39603360
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Error519,

Код: pascal
1.
2.
Юзес модульглавнойформы;
Переменнаятипаглавнаяформа.хэндл.


😎
...
Рейтинг: 0 / 0
Найти хендл окна верхнего уровня
    #39603362
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
для VCL есть GetParentForm
...
Рейтинг: 0 / 0
Найти хендл окна верхнего уровня
    #39603363
Error519
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
окно чужое
...
Рейтинг: 0 / 0
Найти хендл окна верхнего уровня
    #39603395
the root
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Найти хендл окна верхнего уровня
    #39603420
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Error519,

Код: pascal
1.
h := findwindow(nil, 'Безымянный - Блокнот');



?
...
Рейтинг: 0 / 0
Найти хендл окна верхнего уровня
    #39604357
Василий №2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Error519На ум пришло в цикле перебирать
Код: pascal
1.
while GetParent(wnd) > 0 do


Правильно пришло, не сумлевайся.
Только добавить проверку, иначе все такие циклы будут завершаться на хэндле рабочего стола
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Найти хендл окна верхнего уровня
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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