获取Delphi焦点位置的方法，及所在的控件、以及如何通过控件名称访问控件并赋值

Delphi 获取焦点位置及所在控件的方法：

方法一，循环判断：

Var I: Integer; Begin For I := 0 To ComponentCount - 1 Do    //获取组件数量
 Begin If Components[I] Is TWinControl Then Begin If (Components[I] As TWinControl).Focused Then Begin Self.Caption := (Components[I] As TWinControl).Name; Break; End; End; End;

 

方法二，通过活动控件的名称判断：

Activecontrol.name //获取Delphi焦点所在的控件

 

方法三：

某个控件的name.Focused 

 

　　

 

 

已知控件名称访问控件并赋值：

var 　　Panel: TComponent; begin 　　Panel := FindComponent("pnlToolbar"); 　　If Panel is TPanel then 　　TPanel(Panel).Color := clSilver; end;

 

 创建时间：2019.08.05　　更新时间：2020.01.08

 来源：https://www.cnblogs.com/guorongtao/p/11301331.html