Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Найти хендл окна верхнего уровня / 7 сообщений из 7, страница 1 из 1
16.02.2018, 21:45
    #39603339
Error519
Error519
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти хендл окна верхнего уровня
Есть кнопка, которая лежит на панели. Как найти хендл главного окна? Есть для этого какая нибудь функция?
На ум пришло в цикле перебирать
Код: pascal
1.
while GetParent(wnd) > 0 do
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.02.2018, 22:43
    #39603360
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти хендл окна верхнего уровня
Error519,

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


😎
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.02.2018, 22:50
    #39603362
fd00ch
fd00ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти хендл окна верхнего уровня
для VCL есть GetParentForm
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.02.2018, 22:51
    #39603363
Error519
Error519
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти хендл окна верхнего уровня
окно чужое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2018, 04:09
    #39603395
the root
the root
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти хендл окна верхнего уровня
GetAncestor
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2018, 09:57
    #39603420
makhaon
makhaon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти хендл окна верхнего уровня
Error519,

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



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


Правильно пришло, не сумлевайся.
Только добавить проверку, иначе все такие циклы будут завершаться на хэндле рабочего стола
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Найти хендл окна верхнего уровня / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 480ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2041218]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 148ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 232ms
total:  480ms
x
x
Закрыть


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