procedure TForm1.Timer1Timer(Sender: TObject);
begin
Text := Screen.ActiveControl.ClassName;
end;
begin
Text := Screen.ActiveControl.ClassName;
end;
本文介绍了一个简单的Delphi过程,该过程通过定时器每隔一定时间读取当前屏幕上的活动控件名称,并将其显示在界面上。

被折叠的 条评论
为什么被折叠?