delphi切换指定窗口到最前并获得焦点


本文整理自网络,侵删。

 delphi切换指定窗口到最前并获得焦点

今天在DFW看到有人问"一个相对较简单的问题(窗口激活) 真的很失望,200分,我感觉一个不是太复杂

的问题,论坛竟然没有人会?[?] ",呵呵,口气不小,而且说话还有点那个,本来这个问题我想回答的,不

过他既然说DFW没人,偶也不好驳人面子,就在我的Blog发了吧,看不看到是他的事,反正偶不爱和那人

说话。
好了不说废话了,说说具体的吧,要实现“切换指定窗口到最前并获得焦点”,很简单,我们只需一

个函数就OK了,那就是SwitchToThisWindow,这个函数估计知道的人不多,是从user32.dll导出的,其原

形为:

procedure SwitchToThisWindow(hWnd:Thandle; //窗体句柄
fAltTab:boolean //设为true相当于按ALT+TAB切换到指定窗口,至于

//为false是效果自己看吧,偶不会说了
);

具体实例:
//静态加载SwitchToThisWindow
procedure SwitchToThisWindow(hWnd:Thandle;fAltTab:boolean);stdcall;external 'User32.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
h:thandle;
begin
h:=findwindow(nil,'test');
SwitchToThisWindow(h,true);
end;

相关阅读 >>

Delphi byte类型算术运算

Delphi测试数据库连接时间

Delphi的unicode与gb2312转转换,汉字unicode转gb2312

Delphi防止同时出现多个应用程序实例

Delphi datasnap的线程池

Delphi 将整数转换为罗马数字(字符串)2

Delphi 内存管理[4]

Delphi embeddedwb 遍历frames并执行子frame的js脚本

Delphi结合winrar生成自解压文件

Delphi 随机字符3

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...