获取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