procedure TForm1.Timer1Timer(Sender: TObject);
begin
Text := Screen.ActiveControl.ClassName;
end;
{多放几个控件, 按 Tab 测试; 但并不是所有控件都有焦点}
转载于:https://my.oschina.net/hermer/blog/320121
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Text := Screen.ActiveControl.ClassName;
end;
{多放几个控件, 按 Tab 测试; 但并不是所有控件都有焦点}
转载于:https://my.oschina.net/hermer/blog/320121