如何获取当前焦点所在控件的控件名？

Question

Form1.ActiveControl.Name
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————
　　　　　　　

Answer 1

如果你要写OnEnter事件，也不必一个个写，写一个，然后把所有能获得焦点的控件的OnEnter事件指向它就可以了。
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————
　　　　　　　

Answer 2

你在窗体的OnKeyDown中接收Enter 或Tab,然后判断当前工作具有焦点的控件的TabOrder属性,然后加1,在Form.components[]中查找TabOrder的值等于当前值加一的控件,返回Name属性.

Answer 3

(sender as tcomponent).name