for i := 1 to 3 do
TEdit(FindComponent('edit'+inttostr(i)));

能把整个过程都贴出来吗?

查DELPHI帮助关于FindComponent就很清楚了！

for i := 1 to 3 do
TEdit(FindComponent('edit'+inttostr(i)));

用api函数呀
findwindow
findwindowex
具体的帮助可以参考delphi在线帮助!

回复人： redlegend_126_com(redlegend)
用api函数呀
findwindow
findwindowex
具体的帮助可以参考delphi在线帮助!

简单使用上面的应该不可以
还要用GetClassName来确定该控件是Edit控件

你们的答案很有灌水的嫌疑^_^!
那么容易的话,为什么不把代码给我?!
GetClassName得到的三个都是Edit类,怎样区分?

汗还要区分

没有caption的要求，不太可能区分，最多是获得先后区别，我说要用GetClassName是要你区分Button只类的控件

GetClassName得到的三个都是Edit类,怎样区分?

这个问题你可以把3个edit分别命名掉,比如edtone,edttwo,edtthree,这样你得到类名的时候就是Tedtone,Tedttwo,Tedtthree

问题没这么复杂吧！！标准的API函数都可以做到的，如果不相信我把API手册发给你啊

tag属性啦！

都没有把问题的实质搞清楚

我也遇到过类似的问题

比如说某个外部程序，上面有三个edit，都没有text或者所谓的capiton 
那么，如何用findwindowex，得到我想得到的某个edit的handel呢？？

我始终没有解决，不知道还有哪个高人，帮忙~~

比较他们之间的相对位置来确定哪个是哪个
获得位置的函数GetWindowRect

顶

比较他们之间的相对位置来确定哪个是哪个
获得位置的函数GetWindowRect

不知道可以吗，
一会试试

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Edit1.Name + '的句柄 ' + IntToStr(Edit1.Handle));
  ShowMessage(Edit2.Name + '的句柄 ' + IntToStr(Edit1.Handle));
  ShowMessage(Edit3.Name + '的句柄 ' + IntToStr(Edit1.Handle));
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Edit1.Name + '的句柄 ' + IntToStr(Edit1.Handle));
  ShowMessage(Edit2.Name + '的句柄 ' + IntToStr(Edit1.Handle));
  ShowMessage(Edit3.Name + '的句柄 ' + IntToStr(Edit1.Handle));
end;

end.

如果你知道每个控件的大约位置，就可以使用ChildWindowFromPointEx：
用ChildWindowFromPointEx可以得到，hParent是窗体句柄，Point(x, y) 是控件的大约
位置，CWP_ALL表示所有控件，也可以制定只取某类控件，函数返回值为控件句柄。
ChildWindowFromPointEx(hParent, Point(x, y) , CWP_ALL);
下面是我写的一个获取别的程序edit的内容的例子
procedure TForm1.Button1Click(Sender: TObject);
var
  hParent, hEdit: HWND;
  u: pchar;
begin
  try
    hParent := FindWindow(nil, 'fromB的标题');
    if hParent = 0 then
      showmessage('窗口没有找到！')
    else
    begin
      hEdit := ChildWindowFromPointEx(hParent, Point(10, 10) //大约位置
        , CWP_ALL);
      if hEdit = 0 then
        showmessage('Edit没有找到！')
      else
      begin
        U := StrAlloc(250);
        SendMessage(hEdit, WM_GETTEXT, 249, Integer(U));
        edit1.Text := Strpas(u);
      end;
    end;
  except
  end;
end;

你们想那么复杂干什么,要区分3个edit控件很简单.用edit的tag属性啊.譬如Edit1.tag := 1;
Edit2.tag := 2;Edit3.tag := 3

for i := 1 to Form.ComponentCount do begin
   if (Form.Components[i] is TEdit) begin
      case (Form.Component[i] as TEdit).tag of 
          1: Edit1
          2: Edit2
          3: Edit3
      end;
   end;
end;

这样就区分了3个Edit控件,我目前想到的比较简单的方法,如果各位有更好的方法,跟着贴啊

procedure TForm1.Button1Click(Sender: TObject);
var
   FoundWindow: HWND;
   WindowText: array[0..255] of char;
begin
   {find a TEdit child window}
   FoundWindow:=FindWindowEx(Form1.Handle, 0, 'TEdit',nil);

   {get its text...}
   GetWindowText(FoundWindow, WindowText, 255);

   {...and display it}
   Label1.Caption:='FindWindowEx found window handle '+IntToStr(FoundWindow)+
                   ': '+WindowText;

end;

谢谢 xzhifei(星级饭桶·飞) ，你的方法基本可以~
to  apololi(杭州小子) ，如果是外部程序的edit，它的tag我就无法知道，怎么用你的方法？