TScreen 类 - 判断当前焦点在哪个窗体上
2008-01-22 16:50
253 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses Unit2; {本例还包含另一个窗体 Form2} //标题显示当前窗体的类名 procedure TForm1.Timer1Timer(Sender: TObject); begin Text := Screen.ActiveForm.ClassName; end; //激活另一个窗体一试 procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; end; end.
相关文章推荐
- TScreen 类 - 判断当前焦点在哪个控件上
- 判断当前焦点在哪个控件上
- 判断当前焦点在哪个控件上(MFC)
- 判断ImageView当前的图片是哪个图片,然后根据当前图片来做一些操作
- C#让TopMost窗体弹出并置顶层但不获取当前输入焦点的终极办法
- QT 判断当前焦点是否在某控件上
- js 设置焦点 判断控件是否获得焦点 判断哪个控件获得焦点
- CARDLAYOUT中判断当前显示的是哪个部件
- 判断当前获取焦点的元素
- selenium 获取当前框架、窗体焦点
- 在跳转后的页面中判断当前页面是从哪个页面跳转而来的
- UnityUI判断当前焦点是否在输入文本框
- jquery 中判断当前元素是否获得焦点
- [转]---UAP中如何判断当前APP在哪个平台设备上运行
- ios 判断当前页面从哪个页面跳转过来的(上个界面是哪个ViewController)
- js,onblur后下一个控件获取焦点判断、html当前活跃控件、jquery版本查看、jquery查看浏览器版本、setTimeout&setInterval
- C#让TopMost窗体弹出并置顶层但不获取当前输入焦点的终极办法
- 如何判断存在弹出窗体?如何判断当前窗口是活动窗口?
- 判断当前播放的动画是哪个
- 判断ImageView当前的图片是哪个图片,然后比对资源文件