Доступ к элементам управления другого приложения. Часть 2

@Zelator · Регистрация: 17.09.2013

Студворк — интернет-сервис помощи студентам

Здраствуйте!
Управляю программой на Delphi, не могу понять одну вещь. На форме приложения есть несколько edit'ов с одинаковыми значениями, названия классов, естествено, тоже одинаковые:

Доступ к элементам управления другого приложения. Часть 2

Мне нужно отредактировать эти edit'ы:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
   // ...
 
   SetEdValue('0.0', '-180');
   SetEdValue('0.0', '0');
   SetEdValue('10', '180');
   SetEdValue('36', '360');
 
   // ...
 
procedure TMainControl.SetEdValue(aOldValue, aNewValue: string);
var
   agWin, gbWin, edWin: HWND;
begin
   agWin := FindWindow('TSetDlg', 'Set angle parameters'); // поиск окна диалога
   if agWin = 0 then
   begin
      DoErrorWork(10); // окно диалога не было найдено
      exit;
   end;
 
   gbWin := FindWindowEx(agWin, 0, 'TGroupBox', 'Angle'); // поиск GroupBox параметров
   if gbWin = 0 then
   begin
      DoErrorWork(10); // группа не найдена
      exit;
   end;
 
   // ---------- редактирование edit'ов
 
   edWin := FindWindowEx(gbWin, 0, 'TEdit', PWideChar(aOldValue)); // поиск edit'а с заданным значением
   if edWin = 0 then
   begin
      DoErrorWork(11); // edit не был найден
      exit;
   end;
   SendMessage(edWin, WM_SETTEXT, 0, Integer(aNewValue)); // заполнение edit'а
 
   Application.ProcessMessages;
   Sleep(DELAY_ACTION);
end;

Что происходит: программа находит edit, содержащий текст '0.0', успешно меняет его на '-180' (проверял по точке останова в WinSpy++), затем ищет следующий edit с текстом '0.0', но находит предыдущий (судя по хэндлу) с текстом '-180' и меняет его уже на '0'.
И так со всеми "одинаковыми" edit'ами - первый меняет но потом всё равно находит edit с уже поменянным текстом. Как быть??

@Massaraksh7 · 01.09.2017, 23:38

Исключи уже обработанные хэндлы из поиска.

@Jin X · 08.09.2017, 20:56

Чтобы найти следующий Edit, используйте 2-й параметр hwndChildAfter функции FindWindowEx.

Добавлено через 2 минуты
Или можно юзать EnumChildWindows после нахождения TGroupBox (gbWin). И там уже проверять значения или менять их последовательно.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Massaraksh7 Айлурофил 509 / 441 / 111 Регистрация: 27.05.2017 Сообщений: 2,649 Записей в блоге: 5
	01.09.2017, 23:38
	Исключи уже обработанные хэндлы из поиска. 0

@Jin X Asm/C++/Delphi/Py/PHP/VBA 6808 / 2048 / 238 Регистрация: 14.12.2014 Сообщений: 4,297 Записей в блоге: 12
	08.09.2017, 20:56
	Чтобы найти следующий Edit, используйте 2-й параметр hwndChildAfter функции FindWindowEx. Добавлено через 2 минуты Или можно юзать EnumChildWindows после нахождения TGroupBox (gbWin). И там уже проверять значения или менять их последовательно. 0