请问在整个程序 失去"焦点"后,如何使自动弹出的窗体放到最前面(带图片解译)?????????????? 急!!!!!!!!!!!
请问在整个程序 失去 "焦点 "后,如何使自动弹出的窗体放到最前面(带图片解译)?????????????? 急!!!!!!!!!!!
1.设计时 窗体 放一个 定时器 和一个按键 如下图:
http://fsdisk1.xinwen520.net/1.jpg
按键是 开启 timer1 的定时!!
timer1 的定时用来显示 要弹出的窗体, 代码如下 :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled := False ;
form2.Show ;
end;
2.运行程序后,点击按键,开启timer1的定时 ,如下图:
http://fsdisk1.xinwen520.net/2.jpg
3.点击按键后,立即运行 "记事本 " 让 整个程序 失去 "焦点 ", 如下图:
http://fsdisk1.xinwen520.net/3.jpg
4. 在定时器到时间后,执行上 form2.Show ; ,显示窗体 , 可以看到 Form2 窗体在 "记事本 " 的后面 , 如下图:
http://fsdisk1.xinwen520.net/4.jpg
现在 能不能 显示 form2 时 , form2 能不能 在所有程序的最前面 ?
但 我的要求form2 不能 将 formstyle 设为 fsStayOnTop !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
[解决办法]
http://community.csdn.net/Expert/topic/5322/5322398.xml?temp=.4998743
