Question

Delphi判断焦点在哪个控件上的方法

Answer 1

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;