![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Дескрипторы дочерних окон [D7]
citizen © (2009-12-28 14:02:00)Вопрос:
На форме чужой программы есть TPageControl c тремя TTabSheet. Как получить дескриптор одного из TTabSheet?
Спасибо!
citizen (2009-12-29 11:52:00) [1]
> sniknik © (28.12.09 23:03) [4]
> почитай справку про смысл второго параметра.
Что ж, ОГРОМНОЕ СПАСИБО, sniknik, со вторым параметром функцииFindWindowEx()я действительно начудил. Объявление его (параметра, который указывает на дескриптор дочернего окна) нулем в данной функции дало результат!
sniknik (2009-12-28 23:03:00) [2]> что не так?
почитай справку про смысл второго параметра.
citizen (2009-12-28 15:23:00) [3]Мне необходимо добраться до дескрипторов дочерних окон, родителем которых является TTabSheet, но осуществить это не получается, поскольку дескриптор TTabSheet (при его активности) равен нулю, но и при его неактивном положении дочерние дескрипторы все равно не изымаются… . Почему, что не так?
citizen (2009-12-28 14:40:00) [4]procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e: hwnd;
begin
a:=FindWindow('TMainFrm',nil);
b:=FindWindowEx(a,GetWindow(a,gw_Child),'TPageControl',nil);
c:=FindWindowEx(b,GetWindow(b,gw_Child),'TTabSheet','Name-2');
if c<>0 then showmessage('true');
end;
clickmaker, спасибо…
Выше привел пример кода, только есть проблема, когда нужный TTabSheet ‘Name-2’– активный, переменная «с» равна нулю. В чем проблема-то?
clickmaker (2009-12-28 14:29:00) [5]FindWindowEx()