Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Дескрипторы дочерних окон [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()


Наверх

Титульная страница Поиск, карта сайта Написать письмо