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

解决方案 »

  1.   

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

  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;