Дескрипторы дочерних окон

← →
citizen © (2009-12-28 14:02) [0]

Вопрос:

На форме чужой программы есть TPageControl c тремя TTabSheet. Как получить дескриптор одного из TTabSheet?

Спасибо!

← →
clickmaker © (2009-12-28 14:29) [1]

FindWindowEx()

← →
citizen © (2009-12-28 14:40) [2]

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’– активный, переменная «с» равна нулю. В чем проблема-то?

← →
citizen © (2009-12-28 15:23) [3]

Мне необходимо добраться до дескрипторов дочерних окон, родителем которых является TTabSheet, но осуществить это не получается, поскольку дескриптор TTabSheet (при его активности) равен нулю, но и при его неактивном положении дочерние дескрипторы все равно не изымаются… . Почему, что не так?

> что не так?
почитай справку про смысл второго параметра.

> sniknik © (28.12.09 23:03) [4]
> почитай справку про смысл второго параметра.

Что ж, ОГРОМНОЕ СПАСИБО, sniknik, со вторым параметром функции FindWindowEx() я действительно начудил. Объявление его (параметра, который указывает на дескриптор дочернего окна) нулем в данной функции дало результат!

Дескрипторы дочерних окон Найти похожие ветки