Поиск компонентов на форме

← →
lock95 © (2004-04-23 11:30) [0]

Произвожу поиск Edit-ов но находится не все например из 2 только 1, из 8 только 6

procedure TForm1.Button1Click(Sender: TObject);
var
header, heEdit:HWND;
Layout: array[0.. KL_NAMELENGTH] of char;
begin

header:=GetForegroundWindow;
heEdit:= FindWindowEx(header,0,"Tedit",nil);

repeat

heEdit:= GetNextWindow(heEdit, gw_HWndNext);
GetWindowText(heEdit, Layout, length(Layout)) ;
memo1.Lines.Add(Layout);

until heEdit=0;
end;

← →
clickmaker © (2004-04-23 12:20) [1]

А все эдиты лежат последовательно? между ними никаких контролов нет?

← →
lock95 © (2004-04-23 18:25) [2]

Все положил друг за другом

← →
Игорь Шевченко © (2004-04-23 22:06) [3]

EnumChildWindows

← →
Digitman © (2004-04-25 14:13) [4]

> lock95

это ты так ищешь контролы в "чужом" или "своем" Делфи-приложении ?

← →
lock95 © (2004-04-25 15:32) [5]

это ты так ищешь контролы в "чужом" или "своем" Делфи-приложении

Пока в своем, потом хочу попробовать поискать в других приложениях

← →
Digitman © (2004-04-25 15:39) [6]

> Пока в своем

в "своем" выкрутасы с окнами вовсе ни к чему

в "чужом" те же выкрутасы, imho, оправданы лишь в случае, когда "чужое" приложение не есть Делфи-приложение либо разработано в иной версии Делфи нежели "свое"

А может кто код даст как поймать в TEdit - е чужого приложения текст, а то назрела мощная проблема …

Вижу что все молчат... м-да

ты не обозначил задачу предельно четко : что являет собой чужое приложение

Поиск компонентов на форме Найти похожие ветки