如何获得当前编辑的Edit控件名称？

Question

我的一个窗体上有几个Edit控件，另外有一个按键，想选一个edit控件后，再按一下这个按键就自动把一段固定文字输入到光标所在的edit控件中，如何确定光标所在的控件呢？敬请高手指教.谢谢！

Answer 1

建议用一个private变量, FcurEdt记录当前的TEdit,在所有Edit的OnExit事件里写代码;
FcurEdt := TEdit(Sender); 在按钮里写：if FcurEdt <> nil then FcurEdt.text := 'test';

Answer 2

声明一个全局变量
var
  str:string;
每个Edit写上：
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  str:=TEdit(Sender).Name;
end;然后Button：
procedure TForm1.Button1Click(Sender: TObject);
begin
 try
   TEdit(FindComponent(str)).Text := '123';
 except
   showmessage('不是Tedit类型');
 end;
end;