随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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

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

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