在程序运行过程中，经常会发生一些意想不到的情况，这时该如何提示用户呢？弹出一个对话框当然是一个办法，让窗体闪烁也不失为一个不错的选择。本实例演示如何让窗体闪烁起来。

在窗体中添加TCheckBox和TTimer组件，TCheckBox组件用来设置标题栏在窗体闪烁时是否变灰，TTimer组件用于为闪烁窗体定时。添加组件后的窗体如图1-7所示。

图1-7  添加组件后的窗体

将窗体上TTimer组件的Interval属性设置为1000，也就是说每隔1 000毫秒就会自动执行下面的代码：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    FlashWindow(self.Handle,self.CheckBox1.Checked);
end;
FlashWindow的功能是让指定的窗口闪烁一次，不过它的第2个参数可以设置在闪烁窗体时标题栏是否变灰。如果为True，则标题栏变灰；反之则没有变化。

程序代码如下：
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    CheckBox1: TCheckBox;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    FlashWindow(self.Handle,self.CheckBox1.Checked);
end;
end.

保存文件，然后按F9键运行程序，窗体每隔1秒钟就会闪烁一次。不过如果未选中“闪烁时窗体标题栏变灰”复选框，是看不到任何效果的。程序运行结果如图1-8所示。

图1-8  程序运行结果

本实例增加了应用程序提示用户的一个手段，虽然它比起弹出对话框的直观性略差了一些，不过提示方式却变得“温柔”多了。
(责任编辑：admin)