一些应用程序的模式窗体显示时，如果鼠标点了应用程序的其他地方，则模式窗体的标题栏会闪烁以提醒用户。我想问的是，在什么时候执行我闪烁窗体的代码，也就是怎么判断。呵

  • 主题发起人 主题发起人 shangshang
  • 开始时间 开始时间
S

shangshang

Unregistered / Unconfirmed
GUEST, unregistred user!
一些应用程序的模式窗体显示时，如果鼠标点了应用程序的其他地方，则模式窗体的标题栏会闪烁以提醒用户。我想问的是，在什么时候执行我闪烁窗体的代码，也就是怎么判断。呵呵.这个问题希望有人能顺便指点一下。 (100分)<br />如题, 另,如嫌分少, 可加至300.
 
会怎么样？好像没有写完。
 
你说的什么意思呀！
 
我理解这位老兄的意思大概是这样：
比如打开Notepad，然后按Ctrl+O启动“打开文件”对话框，这时候再去点Notepad的主窗口，
那么对话框就会闪烁。
我试了几个软件，Notepad和Wordpad和Visual C++都会有这样的现象，但是Word 2002和
Delphi就没有。确实挺有意思的，不知道为什么会有不一致的问题。
 
不好意思,第一次贴的时候,标题没有贴完全, 已经修改过了.

希望各位路过的大侠指点一二.
 
Flashwindow()函数
 
我是说什么时候，或是在哪里执行flashwindow。
 
这是系统的功能把，Form2.showmodal;以后，Form1就不能响应消息了，除非你用一个线程
：）
 
我想这不是WINDOWS的功能, 我确定以前见过一篇文章,讲的是如何实现这种闪烁标题栏以
提醒用户的效果. 可惜就记得了一个flashwindow 和 Timer, 至于什么时候执行这些代码
就给忘掉了. ^_^
 
procedure tform1.button1click
begin
form2.show;
form1.bringtofront;
timer1.interval:=getcareblinktime;
timer1.enabled:=not timer1.enabled;
end;
procedure tform1.timertimer
begin
flashwindow(form2.handle,true);
end;
 
ugvanxk,我已经重申几遍了, 我要的是什么时候,用什么方法来判断出这种事件的发生.
然后执行你的这个闪烁窗体的代码. 这个代码我知道的. 不好意思.
 
大家帮帮忙啊!
 
我也想知道！up一下！
 
对啊，路过的各位，想知道答案的帮忙up一下哦。
 
我觉得是在主窗口被单击，可没有出现最上方，或又不是当前窗口的时候
 
我想应该是主窗体失去焦点的时候。
 
当模式窗口出现时，主窗体不可能响应任何事件啊。
 
Win2000里面的程序自动有这个功能！下面是我的研究：
下面的是Kingron原创的哦，在Windows 2000 Advance Server + D5下通过
一个技术型的问题：
我们知道，使用Windows2000的时候，如果是Windows2000本身的对话框，
显示一个模态的窗口的时候，如果这个时候单击调用模态窗口的窗口，
那么这个模态窗口会闪动标题栏来提示用户！这是一个很好的功能，
不知道用Delphi怎么做？我写了好几个测试程序，但是都找不着门路。
也许用纯API创建可以，但是不用纯API有没有办法做到呢？要方法简单哦。

解决方法如下：
1：要么修改Forms.pas，设立一个全局变量，并且采用动态创建窗体的方法，这样可以随时改变Form的Owner窗体。
2：普通的方法：
假设有两个窗体：
form1,form2，form2为Modal窗体，由form1来调用，那么修改form2的pas单元如下：
TForm2=class(TForm)
....
procedure CreateParams(var Para:TCreateParams);override;
...
end;

....
procedure TForm2.CreateParams(var Para:TCreateParams);
begin
inherited CreateParams(Para);
Para.WndParent:=Form1.Handle;
end;

这样，就会有那种闪动标题栏的效果了。
 
这个问题我以前研究了好久，发现用VC写程序，动态创建的话，都会有这个效果，而Office则
没有，因此，可以看出来，在Office的编写当中，不全部使用VC编写的，在界面方面，应该是
使用VB多一点儿。这是我的猜测。
另外，要修改Forms.pas编译的时候，比较麻烦，好像Borland公司不希望别人修改VCL源代码？
我有一个修改好的Forms.pas，但是现在丢失了！
以前我的代码是这样的：

wndParent：=Form1。Handle；
Form2：=TForm2。Create（Application）；
wndParent：=nil；
Form2。ShowMadal；
。。。。
方式使用这种方式创建的话，都会有你说的这个效果。
我以前的一个程序就用过这个功能！在2000下很爽的！！！
 
您必须登录或注册才可回复。

Similar threads

S
[杂谈]系统对话框（如浏览目录）被隐藏到主窗体后面造成程序无法操作的临时处理方式
回复
0
查看
917
swish
S
S
[教程]在你的程序中使用 FontAwesome 字体
回复
0
查看
848
swish
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
如何在OnTop窗体上面显示一个模态窗体
回复
0
查看
639
import
I
后退
顶部