procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Text := Screen.ActiveControl.ClassName;
end;

{多放几个控件, 按 Tab 测试; 但并不是所有控件都有焦点}

posted on 2008-01-22 16:39  万一  阅读(5350)  评论(0编辑  收藏  举报