Question

如何实现控件的焦点转移并把焦点控件的内容输出

Answer 1

给 Edit1添加 OnEnter 事羡升件，代码只需携历一行：
Edit7.Text := (Sender as TEdit).Text;

选中其他5个，兄隐老在属性面板中将5个的 OnEnter 事件指定为 Edit1Enter 即可；
另外，在窗体的 OnShow 事件里执行一次初始化，让其显示当前已获得焦点控件的 text:
Edit1.SetFocus;