Скачать: CL | DM;

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

← →
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, оправданы лишь в случае, когда "чужое" приложение не есть Делфи-приложение либо разработано в иной версии Делфи нежели "свое"

---

← →
lock95 ©   (2004-04-26 18:17) [7]

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

---

← →
lock95 ©   (2004-04-27 18:08) [8]

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

---

← →
Digitman ©   (2004-04-27 18:35) [9]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c