说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

闪动标题栏-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
闪动标题栏-Delphi资料

在你的应用程序中,你可能会希望将应用程序的标题栏进行闪动,以提醒用户进行某种操作,本文介绍了如何使一个窗口的标题栏进行闪动。

闪动一个窗口的标题栏意味着改变它的标题栏的外观,例如它从活动变为不活动,或是从不活动变为活动等等。只要你能在Delphi 或者 C++ Builder 中得到窗口的句柄,你就可以使用Windows 应用程序编程接口(API)函数来使该窗口的标题栏进行闪动。函数FlashWindows可以被用使一个特定的窗口闪动一次。 

函数原形:

function FlashWindow(const hwnd:Integer;const bInvert:LongBool):LongBool;

该函数需要2个参数,第一个参数是要闪动标题栏的窗口的句柄,第二个参数用于指定是设置窗口的闪动状态,还是恢复其原始状态。如果该bInvert参数为True,则表明窗口的标题栏被闪动,如果该参数为False,则表明窗口的标题栏被恢复为原始状态。

该函数所返回的值用于指定调用该函数前窗口的状态,如果该返回值True,则表明窗口在调用该函数之前是活动的,否则,如果返回值为False

则表明调用函数前窗口是非活动的。

当使用该FlashWindow函数时,一个较好的方法是将标题栏闪动的频率设置为同脱字符(也即闪动的光标)相同,脱字符的闪动频率可以通过调用函数GetCaretBlinkTime来获得。要使用该函数,需要将如下的声明语句包含在你的窗体的通用声明部分中:

function GetCaretBlinkTime:Integer;

该函数返回用毫秒值表示的时间。 例程:

建立新的Project

并新建一From(包括New Project建立的Form

共两个)

在Form1中加入一Button和Timer

按下面的方法建立程序.

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

Form1.BringToFront;

Timer1.Interval:=GetCaretBlinkTime;

Timer1.Enabled:=Not Timer1.Enabled;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

FlashWindow(Form2.Handle

TRUE);

end;

云端测试破1500万 Testin已为开发者省2亿 智能腕表inWatch:已发售近3600台 Bingo!微软证实Windows 8.1将捆绑安装Skype IBM宣布收购以色列网络安全公司Trusteer 约10亿美元 如何才能运作好一个开源项目? ADO.NET的连接字符串能不能用相对路径的??? redhat8 下php安装问题 快救救我,几天都不能解决的问题。急死我了 连接ORACLE问题 动态库DLL高手请进!! 关于OUTLOOK的问题`~~~急死了 以下的属于数字的参数怎么传递到STr中去! vc编译器出问题了,请教!! 急!关于嵌入对象的问题!qq联系! 14、15题 十四十五题,急求大神解! 第十四十五题求大神解答 14 15题 数字推理2,1,6/7,4/5,10/13,(), 数字推理求解 3,2,5/3,3/2,A7/5 B 大神,概率求详解 【急求】高二概率题,求大神帮解答书架上有10本不同 概率组合问题求大神解答一个电梯有4个乘客,电梯有7 中国就欧盟对华紧固件反倾销措施案的执北京10单位仅1公开社会监督员信息 北京重污染天机动车单双号限行 电动汽美国联邦储备委员会宣布维持现有宽松货中国在联合国大会全票连任联合国经社理今后摩托上路须满足“新标”要求我省发布20首原创广场舞歌曲标题导航标题导航首破四百万亿韩元重生之金盆洗手重生香港壬子年抗日烽火之烽火燎原重生之再难平凡凤倾天阑老行当旅游大利侗寨旅游报京侗寨旅游金鹭鸵鸟园旅游明月湾古村旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘