（Sender: TObject）问题

Question

有若干文本框，当任何一个得到焦点，都弹出一个窗口，窗口名称根据文本框内容改变，怎么实现啊？
是不是要用Sender: TObject，我不会，谢谢指教！

Answer 1

if Sender is TEdit then
  ShowMessage((Sender As TEdit).Text)

Answer 2

给你写了一个：）procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to componentCount-1 do
    if Components[i] is TEdit then
      (Components[i] as TEdit).OnEnter := Enter; //获得焦点时入Enter过程
end;procedure TForm1.Enter(Sender: TObject);
begin
if Sender is TEdit then
  ShowMessage((Sender As TEdit).Text);//显示此Edit上的文本
end;