如何得到焦点所在的控件的name

Question

如何得到焦点所在的控件的name

Answer 1

if ActiveControl<>nil then
  Self.Caption:=ActiveControl.Name;

Answer 2

Screen.ActiveControl.Name 可得到控件名
但我要得到这个控件的ＣＡＰＴＩＯＮ怎么弄？

Answer 3

难道我还要去遍历控件找到名字等于Screen.ActiveControl.Name 然后再取ＣＡＰＴＩＯＮ，

Answer 4

if ActiveControl<>nil then
  Self.Caption:=ActiveControl.classname