[Shoni]

Доброго времени суток! Нужно считать значения всех Edit'ов, но дело осложняется тем, что они лежат на панельках и их много, FindWindowEX не прокатывает.

Можно ли решить проблему следующим образом:
1. получить хэндл окна программы (FindWindow)
2. сделать окно активным (SetActiveWindow)
3. получить список хэндлов, перебирать по одному, GetClassName - ом узнать, принадлежит ли объект классу TEdit, a не TButton, если TEdit - считать Sendmessage-ом, потом сымитировать нажатие Tab...

Такое возможно? или можно проще?

[Yurk@]

Код:

var 
  i : integer;
  c : TComponent;
  s : string;
begin
  s := '';
  for i := 0 to Form1.ComponentCount - 1 do
  begin
    c := Components[i];
    if c.ClassName = 'TEdit' then
      s := s + '|' + TEdit(c).Text;
  end;

не?

[Shoni]

Ммм... значения считываются из другой программы....

[Alegun]

Сообщение от Shoni

...получить хэндл окна программы (FindWindow)...

И дочерних тоже