闪动标题栏
在你的应用程序中，你可能会希望将应用程序的标题栏进行闪动，以提醒用户进
行某种操作，本文介绍了如何使一个窗口的标题栏进行闪动。
闪动一个窗口的标题栏意味着改变它的标题栏的外观，例如它从活动变为不活动
，或是从不活动变为活动等等。只要你能在Delphi 或者 C++ Builder
中得到窗口的句柄，你就可以使用Windows
应用程序编程接口（API）函数来使该窗口的标题栏进行闪动。函数FlashWindow
s可以被用使一个特定的窗口闪动一次。
函数原形:
function FlashWindow(const hwnd:Integer;const bInvert:LongBool):LongBo
ol;
该函数需要2个参数，第一个参数是要闪动标题栏的窗口的句柄，第二个参数用于
指定是设置窗口的闪动状态，还是恢复其原始状态。如果该bInvert参数为True，
则表明窗口的标题栏被闪动，如果该参数为False，则表明窗口的标题栏被恢复为
原始状态。
该函数所返回的值用于指定调用该函数前窗口的状态，如果该返回值True，则表
明窗口在调用该函数之前是活动的，否则，如果返回值为False,则表明调用函数
前窗口是非活动的。
当使用该FlashWindow函数时，一个较好的方法是将标题栏闪动的频率设置为同脱
字符（也即闪动的光标）相同，脱字符的闪动频率可以通过调用函数GetCaretBl
inkTime来获得。要使用该函数，需要将如下的声明语句包含在你的窗体的通用声
明部分中：
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;
[from http://www4.netease.com/~ladybird/]
--
※ 来源:．网易虚拟社区北京站 http://bj.netease.com．[FROM: 202.96.51.143]
|
|