Как получить классы всех дочерних окон формы

[rangel]

Как получить классы всех дочерних окон формы?
Будь то в TreeView или даже в Memo, у меня никак не получается,
проше помощи

с помощью FindWindow, GetWindow и тп...

в целом мне нужно немного по другому,
мне на форме нужно найти 2 объекта,
если уже есть поиск встроенный который сразу выдаст wnd будет отлично
иначе мне алгоритм прорисовки путя до объекта придётся писать

[Пепел Феникса]

EnumChildWindows + поиск, есть примеры которые надо чуток изменить для вашей цели(пару строк изменить)

[rangel]

ссыльните если не трудно

[Пепел Феникса]

поиск по форуму вообще то.

function EnumClasses(HWND:THandle;lParam:Integer):BOOL;stdcall;
var s:string;
begin
 SetLength(s,256);
 SetLength(s,GetClassName(HWND,s[1],256));
 Form1.Memo1.Lines.Add(s);
 Result:=true;
end;

на кнопке пишем
 EnumChildWindows(<хендл окна, у которого перечисляем>,@EnumClasses,0);

[rangel]

спасибо и последний вопрос,
как узнать иерархию?

тоесть список получаю, но какие объекты из какой группы незнаю...

[Пепел Феникса]

всмысле из какой группы?
вы получаете не всю иерархию, а только один уровень оной(окна, дочерние именно к указаному хендлу)

[m.a.x.i.m]

Сообщение от Пепел Феникса

всмысле из какой группы?
вы получаете не всю иерархию, а только один уровень оной(окна, дочерние именно к указаному хендлу)

неверно, в данном случае мы получаем классы всех дочерних окон, а не только прямых потомков.

[xwicked]

Сообщение от Пепел Феникса

поиск по форуму вообще то.

function EnumClasses(HWND:THandle;lParam:Integer):BOOL;stdcall;
var s:string;
begin
 SetLength(s,256);
 SetLength(s,GetClassName(HWND,s[1],256)); //Здесь ошибка
 Form1.Memo1.Lines.Add(s);
 Result:=true;
end;

на кнопке пишем
 EnumChildWindows(<хендл окна, у которого перечисляем>,@EnumClasses,0);

Пробую в Delphi 2005 из состава BDS 2006 - не получается, пишет "Несовместимые типы Char и PAnsiChar".

Помоги чайнику что поправить?

[Аватар]

SetLength(s,GetClassName(HWND,Addr(s[1]),256));