想直接用函数得到当前表单中获得焦点的控件名,不知有这样的函数吗?

ActiveControl 属性

引用某个对象上的活动控件。设计时不可用；运行时只读。

 
Object.ActiveControl.Property[ = Value]
 

属性值
Property
要返回或设置的属性。
Value
当前或新的属性值。
说明
应用于：Container 对象 | Form 对象 | Page 对象 | _SCREEN | ToolBar 对象

如果指定对象上的所有控件都不可见或被禁用，则该属性不可用。

如果对象是活动的，则 ActiveControl 属性将引用存在焦点的控件。如果对象是非活动的，则产生错误。

感谢WZXC的耐心指教。多问一句，我是想得到当前获得焦点的Edit对象名，有没有什么办法？

新建一表单，click事件代码:
?thisform.ActiveControl.Name

在表单上建若干控件。运行后，选择不同的控件，然后单击表单，看效果。

一切OK！谢谢！

在您的指导下，我用 _Screen.ActiveForm.Name+"."+thisform.ActiveControl.Name得到的当前得到焦点控件的名字。
但我的程序中有的控件是在pageframe1.page1(2,3)中，有没有办法同时得到上层容器的名字？

lcControlName=This.Name
lcControl='This'
Do While .T.
  If Type(lcControl+'.Parent')='O'
    lcControl=lcControl+'.Parent'
    lcControlName=&lcControl..Name+'.'+lcControlName
  Else
    Exit
  EndIf
EndDo
MessageBox(lcControlName)

刚测试了,非常正确,还是版主高明,再次感谢!!!