Как перебрать все элементы в окне?

← →
Хинт © (2005-07-06 12:20) [0]

Необходимо найти элемент управления (RichEdit20W). Для этого надо перебрать все элементы в окне. Может кто-нибудь дать готовый пример, использующий GetWindow (GW_CHILD, GW_HWNDNEXT)?

← →
Чапаев © (2005-07-06 12:27) [1]

A FindWindowEx() не подойдёт?

← →
Хинт © (2005-07-06 12:29) [2]

FindWindowEx [Now Supported on Windows NT]

← →
Хинт © (2005-07-06 12:32) [3]

Сделал так:

procedure FindMemo(wnd:HWND); var ClassName : array[0..255] of char; begin while Wnd<>0 do begin FindMemo(GetWindow(Wnd, GW_CHILD)); GetClassName(wnd, ClassName, 255); if StrPas(ClassName)="RichEdit20W" then begin Application.MessageBox("Элемент найден","Готово",MB_OK); end; WND:=GetWindow(WND, GW_HWNDNEXT); end; end;

Но почему-то находит не все =(

← →
Игорь Шевченко © (2005-07-06 12:40) [4]

EnumChildWindows ?

← →
Чапаев © (2005-07-06 12:43) [5]

FindWindow(nil,"TMemo"), а затем FindWindowEx().

← →
Чапаев © (2005-07-06 12:45) [6]

Тьфу, то есть FindWindow(nil,"TForm1"), а затем FindWindowEx()

← →
Хинт © (2005-07-06 12:46) [7]

Спасибо. С этим разобрался. Последний вопрос: как получить текст из RichEdit20W?

Выделить всё, а затем скопировать в буфер обмена? Если вторая программа делфовая, то можно и через FindControl() извратиться.

Через буфер обмена не хотелось бы... А программа написана не на Delphi =( Может есть какой-нибудь вариант с использованием WinApi?

Как перебрать все элементы в окне? Найти похожие ветки