Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > найти handle Edit'ov


Автор: COOLHack 17.8.2008, 17:55
Вообщем такая проблема.

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

Дак вот как найти Хендл именного того, в котором записанно "123"?

Автор: VICTAR 17.8.2008, 17:59
Перебирать все эдиты (например EnumChildWindows) и смотреть какой в них текст (например GetWindowText).
PS если это в своем приложении, то все намного проще

Автор: COOLHack 17.8.2008, 18:05
Если не сложно, покажи пример рабочего кода. 

Автор: VICTAR 17.8.2008, 18:09
drkb, google. msdn наконец. примеров много.

Автор: COOLHack 17.8.2008, 18:16
Пасиб конечно, но drkb и google я смотрел. до меня туго доходит. вот и попросил тя пример раболчего кода показать.

Автор: VICTAR 17.8.2008, 18:34
Показывай что не получается, там уже будет видно.
А так, в центр помощи.

Автор: COOLHack 17.8.2008, 18:46
каким образом можно перебрать едиты?.

Автор: Qu1nt 17.8.2008, 19:10
Код

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;

Автор: THandle 17.8.2008, 19:44
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;

Автор: COOLHack 18.8.2008, 10:05
THandle, а как теперь найти хендл того, в котором текст "123"?

Автор: Romikgy 18.8.2008, 10:46
добавить проверку
GetWindowText

Автор: VICTAR 18.8.2008, 11:03
По коду THandle хочется сказать, что надо добавить результат, возвращаемый функцией 
Цитата

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

Желательно вместо GetClassName использовать RealGetWindowClass и делать проверку на 'EDIT'.

Автор: COOLHack 18.8.2008, 11:52
Код

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


Если не сложно, покажи пример кода, а то чёт неполучается нифига. 

Автор: COOLHack 18.8.2008, 12:27
Код

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


Код

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



а поле edit в котором нужно найти текст "123" как раз в другой программе.

Автор: COOLHack 18.8.2008, 13:10
Код

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;



Это работает ттолько в своей проге. а как сделать тоже самое, но в чужой, если чужое окно в момеент выполнения кода активное?

Автор: THandle 18.8.2008, 16:30
Цитата(COOLHack @  18.8.2008,  14:10 Найти цитируемый пост)

Это работает ттолько в своей проге. а как сделать тоже самое, но в чужой, если чужое окно в момеент выполнения кода активное? 


Это работает в любой программе.

Я же написал:


Цитата(THandle @  17.8.2008,  20:44 Найти цитируемый пост)

Ищет в окне, переданном в параметре HWND все окна класса TEdit.


Передавай туда что угодно, хоть окно проводника, хоть что.
Ищи это окно с помощью FindWindow.

Автор: THandle 19.8.2008, 11:32
Так:

Код

function EnumChild (HWND : HWND; lParam : LPARAM) : BOOl; stdcall;
const
  STR_SIZE = 256;
var
  Str : PChar;
  WndText : string;
  WndTextLen : integer;
begin
  try
    GetMem(Str, STR_SIZE);
    if GetClassName(HWND, Str, STR_SIZE) > 0 then
      if StrComp(Str, 'TEdit') = 0 then
        begin
          WndTextLen := SendMessage(HWND, WM_GETTEXTLENGTH, 0, 0);
          SetLength(WndText, WndTextLen);
          if WndTextLen > 0 then
            begin
              SendMessage(HWND, WM_GETTEXT, WndTextLen + 1, Integer(WndText));
              if CompareStr(WndText, '123') = 0 then
                ShowMessage('123Edit');
            end;
        end;
  finally
    FreeMem(Str);
  end;
end;


Вот так вызываем:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumChildWindows(Handle, @EnumChild, 0);
end;


Или можно в цикле перебирать окна с помощью GetWindow(HWND, GW_HWNDNEXT)

Автор: COOLHack 19.8.2008, 12:00
Работает, РЕСПЕКТ!.

Добавлено через 12 минут и 44 секунды
А как искать это в чужом окне? Когда я пишу так: HWND:=findwindow(nil, 'blblbl') то ничего не ищется. При этом в HWND 100% хендл окна. 

Автор: THandle 19.8.2008, 12:15
COOLHack, 

Функцию саму не трожь!!!!

Меняй вызов:
Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumChildWindows(findwindow(nil, 'blblbl'), @EnumChild, 0);
end;


Добавлено через 11 минут и 3 секунды
Почитай:

http://msdn.microsoft.com/en-us/library/ms633494(VS.85).aspx
http://msdn.microsoft.com/en-us/library/ms633493(VS.85).aspx

HWND в функции EnumChild это найденное дочернее окно, а то что передаются в HWND EnumChildWindows - родительское окно, на котором и будет происходить поиск.

Автор: COOLHack 19.8.2008, 12:29
Пасиб. 

Автор: Larry 9.12.2008, 12:01
Не совсем понял, как реализовать перебор окон с заданным текстом. Мне больше по душе GetWindow. Я делаю так:
Код
var
  h, he, ht: HWND;
  Str : PChar;
  i: integer;
begin
  h := FindWindow(nil, 'Окно чужого приложения');

  if h <> 0 then begin
     ht := GetWindow(h, GW_HWNDLAST);
     he := GetWindow(h, GW_CHILD);

     while (he <> ht) do begin
        he := GetWindow(h, GW_HWNDNEXT);
        GetWindowText(he, Str, 11);
        if (Str = '        999') then break;
     end;

     SendMessage(he, WM_SETTEXT, 0, LParam(PChar('Я нашел тебя')));

  end else
    MessageBox(MainForm.Handle, 'Не найдено окно чужого приложения!', 'Ошибка', MB_ICONERROR);

Мне нужно найти компоненту ClaEdit с вбитым туда текстом '        999'. Но у меня программа не то, чтобы не находит эту компоненту, но даже из цикла while почему-то не выходит.

Автор: Romikgy 9.12.2008, 16:33
Код

function isTextWin(sx: string; h: HWND):HWND;
var cur_str: string;
  h1,hc: HWND;
begin
  h1:=h;

  while (h1<>0) do
  begin
     SetLength(cur_str,GetWindowTextLength(h1)+1);
     GetWindowText(h1,PChar(cur_str),Length(cur_str));
     cur_str:=PChar(cur_str);
     if sx=cur_str then Break;
     hc:=GetWindow(h1, GW_CHILD);

     if hc<>0 then
     hc:=isTextWin(sx,hc);
     if hc=0 then
     h1:=GetWindow(h1, GW_HWNDNEXT);

  end;
  Result:=h1;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  h, he: HWND;
  Str : PChar;
  i: integer;
begin
  h := FindWindow(nil, 'Form1');
  if h <> 0 then begin
     he:=isTextWin('btn1',GetWindow(h, GW_CHILD));
     if he<>0 then
     SendMessage(he, WM_SETTEXT, 0, LParam(PChar('Я нашел тебя')))
     else
     MessageBox(Handle,
    'Нет окон с таким текстом!', 'Ошибка', MB_ICONERROR);

  end else
    MessageBox(Handle,
    'Не найдено окно чужого приложения!', 'Ошибка', MB_ICONERROR);

end;

Автор: Larry 10.12.2008, 14:14
Romikgy, спасибо за помощь. Вечером буду пробовать.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)