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;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024