判断当前焦点在哪个控件上

来源:互联网 发布:淘宝联盟怎么下载不了 编辑:程序博客网 时间:2024/03/29 14:19
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Text := Screen.ActiveControl.ClassName;
end;