|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.06.2008, 22:40 | #1 |
Пользователь
Регистрация: 03.06.2008
Сообщений: 31
|
Получение хэндла дочернего контрола
Есть иерархия:
Форма Tmsgform: TPanel->Tpagecontrol... TPanel->Tpanel->Tbutton,tbutton... Получить мне нужно ТБуттон Получаю хендл тпанел, потом пытаюся получить еще один хэндл тпанел, но безрезультатно, подскажите как можно получить в такой иерархии хендл нужного класса... |
12.06.2008, 08:05 | #2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
12.06.2008, 17:51 | #3 |
Пользователь
Регистрация: 03.06.2008
Сообщений: 31
|
Код:
Последний раз редактировалось B_N; 12.06.2008 в 18:00. |
13.06.2008, 11:25 | #4 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
Поставь проверку значения хендла после каждого поиска. и если память не изменяет, то класс вроде чувствителен к регистру.
wnd[3]:=findwindowex(wnd[2],0,'Tpanel',nil); надо так wnd[3]:=findwindowex(wnd[2],0,'TPanel',nil); |
13.06.2008, 17:43 | #5 |
Пользователь
Регистрация: 03.06.2008
Сообщений: 31
|
Всеровно не получается получить хэндл кнопки...
Получилось взять панель вот таким кодом: wnd[1]:=findwindow('TMsgForm',nil); wnd[2]:=findwindowex(wnd[1],0,'TPanel',nil); wnd[3]:=findwindowex(wnd[1],wnd[2],'TPanel',nil); //вот эту панельку wnd[4]:=findwindowex(wnd[3],0,'TlnfBitBtn',nil); if iswindow(wnd[4]) then begin form1.Caption:='OK'; Но вот кнопку не получается, пробовал еще так: wnd[4]:=findwindowex(wnd[1],wnd[3],'TlnfBitBtn',nil); Пробовал и текст кнопки писать, но не помогает, не пойму почему... Может знает кто, как получить? |
14.06.2008, 08:53 | #6 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
не забывай проверять значения хендлов wnd[3] и wnd[2].
|
14.06.2008, 18:55 | #7 |
Пользователь
Регистрация: 03.06.2008
Сообщений: 31
|
И так и сяк не получается(((..
Кто-нибудь попробуйте получить хэндл окна, скачайте QIP 8060 и там получите хендл TRichviewedit... |
01.07.2008, 10:58 | #8 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
QIP INFIUM :
Код:
I'm learning to live...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разбиение дочернего окна на колонки... | HunterMan | Win Api | 3 | 03.04.2008 23:19 |
Получение почты | NoName_emaNoN | Win Api | 0 | 29.11.2007 20:47 |
Получение текущего URL | Artem | Общие вопросы Delphi | 5 | 08.11.2007 17:26 |
Получение функций из DLL | NITRON | Общие вопросы Delphi | 8 | 12.09.2007 17:32 |
наличие определенного свойства у контрола | Toxa | Общие вопросы Delphi | 5 | 03.09.2007 16:54 |