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

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

Ув. мастера. Как найти хендлы всех контролов на форме? [D6, WinXP]

Avers_SM ©   (2005-12-01 14:44:00) 

Ув. мастера. Как найти хендлы всех контролов на форме? Пытаюсь искать FindWindowEx, но нахожу только то, что непосредственно принадлежит главной форме. А что лежит на панелях (TPanel) и иже с ними - не получается.

procedure GetFormControls(hApp: HWND);
var
 i: Word;
 h: HWND;
 Nm:Array[0..255] of Char;  
 Cs: Array[0..255] of Char;
Begin
 if not IsWindow(hApp) then Exit;
 for i := 0 to 10 do
  begin
   h := FindWindowEx(hApp, h, nil, nil);
   if IsWindow(h) then
      begin
       GetWindowText(hEdit,Nm,255);
       GetClassName(hEdit,Cs,255);
       Form1.Memo1.Lines.Add(String(Nm)+'/'+String(Cs));
      end;
  end;
end;

---

psa247   (2005-12-03 10:42:00) [1]

А как получить хендлы наследников от TGraficControl (speedbutton'ы) ?

---

Leonid Troyanovsky   (2005-12-01 18:16:00) [2]

> ANB ©   (01.12.05 17:43) [5]

> EnumChildWindows - сама организует рекурсию. Очень удобно.


Трудно сказать, насколько это удобней, бо нужно следить за изменением
Parent, т.к. порядок обхода контролов не гарантирован.

Но, с другой стороны, ECW предпочтительней FindWindowEx/GetWindow
бо справляется с изменением z-order во время перечисления.

--
Regards, LVT.

---

ANB   (2005-12-01 17:43:00) [3]

> Leonid Troyanovsky ©   (01.12.05 15:32) [3]

EnumChildWindows - сама организует рекурсию. Очень удобно.

---

AversFm   (2005-12-01 16:07:00) [4]

Спасибо, буду разбираться дальше.

---

Leonid Troyanovsky   (2005-12-01 15:32:00) [5]

> AversFm   (01.12.05 15:17) [2]
> А можно пример ее использования? А не могу разобраться LPARAM.



В LParam можно передать что-то полезное, например, список
для его заполнения.

Кста, функция для поиска всех контролов, как правило, рекурсивна.
Например, так с помощью FindWindowEx можно перечислить все Parent
для некоторого (вин)контрола.


procedure EnumParent(var h : HWND; Lines: TStrings);
var
 buffer: array [0..255] of char;
 s : string;
begin
 if h = 0 then
   Exit;
 GetClassName(h, Buffer, SizeOf(buffer));
 s := buffer;
 GetWindowText(h, buffer, SizeOf(buffer));
 Lines.Insert(0, Format('"%s", "%s"', [s, buffer]));
 s:= '';
 h := GetParent(h);
 EnumParent(h, Lines);
end;


--
Regards, LVT.

---

AversFm   (2005-12-01 15:17:00) [6]

А можно пример ее использования? А не могу разобраться LPARAM.

BOOL CALLBACK EnumChildProc(
   HWND hwnd, // handle to child window
   LPARAM lParam  // application-defined value
  );

---

ANB   (2005-12-01 14:53:00) [7]

EnumChildWindows

---

Наверх