Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> найти handle Edit'ov 
V
    Опции темы
COOLHack
Дата 17.8.2008, 17:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: нет
Всего: 0
Вообщем такая проблема.

Есть активное окно. в нём есть компонент Edit. В этом Edit записан какой-то текст. Например "123".  
В данном окне Editov много. 

Дак вот как найти Хендл именного того, в котором записанно "123"?
PM MAIL   Вверх
VICTAR
Дата 17.8.2008, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Перебирать все эдиты (например EnumChildWindows) и смотреть какой в них текст (например GetWindowText).
PS если это в своем приложении, то все намного проще
PM MAIL   Вверх
COOLHack
Дата 17.8.2008, 18:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: нет
Всего: 0
Если не сложно, покажи пример рабочего кода. 
PM MAIL   Вверх
VICTAR
Дата 17.8.2008, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
drkb, google. msdn наконец. примеров много.
PM MAIL   Вверх
COOLHack
Дата 17.8.2008, 18:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: нет
Всего: 0
Пасиб конечно, но drkb и google я смотрел. до меня туго доходит. вот и попросил тя пример раболчего кода показать.
PM MAIL   Вверх
VICTAR
Дата 17.8.2008, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Показывай что не получается, там уже будет видно.
А так, в центр помощи.
PM MAIL   Вверх
COOLHack
Дата 17.8.2008, 18:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: нет
Всего: 0
каким образом можно перебрать едиты?.
PM MAIL   Вверх
Qu1nt
Дата 17.8.2008, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
      if TEdit(Components[i]).Text = '123' then
      begin
        Self.Caption := IntToStr(TEdit(Components[i]).Handle);
        Break;
      end;
end;
PM MAIL   Вверх
THandle
Дата 17.8.2008, 19:44 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372
Qu1nt, это TEdit'ы в своем окне, а если надо найти что то еще?

Примеров предостаточно в интернете, но ссылку давать не буду, искать не могу, GPRS.

Вот пример:

Код


function EnumChild (HWND : HWND; lParam : LPARAM) : BOOl; stdcall;
const
  STR_SIZE = 256;
var
  Str : PChar;
begin
  GetMem(Str, STR_SIZE);
  if GetClassName(HWND, Str, STR_SIZE) > 0 then
    if StrComp(Str, 'TEdit') = 0 then
      ShowMessage('TEdit');
  FreeMem(Str, STR_SIZE);
end;



Ищет в окне, переданном в параметре HWND все окна класса TEdit.
Если нашел, то показывает сообщение об этом.
В общем просто пример. Можно искать окна любого класса...

Вызываем для своего окна:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumChildWindows(Handle, @EnumChild, 0)
end;
PM   Вверх
COOLHack
Дата 18.8.2008, 10:05 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: нет
Всего: 0
THandle, а как теперь найти хендл того, в котором текст "123"?
PM MAIL   Вверх
Romikgy
Дата 18.8.2008, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
добавить проверку
GetWindowText


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
VICTAR
Дата 18.8.2008, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
По коду THandle хочется сказать, что надо добавить результат, возвращаемый функцией 
Цитата

To continue enumeration, the callback function must return TRUE; to stop enumeration, it must return FALSE. 

Желательно вместо GetClassName использовать RealGetWindowClass и делать проверку на 'EDIT'.
PM MAIL   Вверх
COOLHack
Дата 18.8.2008, 11:52 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: нет
Всего: 0
Код

добавить проверку
GetWindowText 


Если не сложно, покажи пример кода, а то чёт неполучается нифига. 
PM MAIL   Вверх
COOLHack
Дата 18.8.2008, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: нет
Всего: 0
Код

добавить проверку
GetWindowText 


Код

У функции GetWindowText есть еще одна особенность - она не может читать данные из текстовых полей окон другой программы.



а поле edit в котором нужно найти текст "123" как раз в другой программе.
PM MAIL   Вверх
COOLHack
Дата 18.8.2008, 13:10 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: нет
Всего: 0
Код

function EnumChild (HWND : HWND; lParam : LPARAM) : BOOl; stdcall;
const
  STR_SIZE = 256;
var
  Str : PChar;
begin
  GetMem(Str, STR_SIZE);
  if GetClassName(HWND, Str, STR_SIZE) > 0 then
    if StrComp(Str, 'TEdit') = 0 then
      ShowMessage('TEdit');
  FreeMem(Str, STR_SIZE);
end;



Это работает ттолько в своей проге. а как сделать тоже самое, но в чужой, если чужое окно в момеент выполнения кода активное?
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0932 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.