当前位置: 首页 > 开发语言 > Delphi > Delphi6教程使窗体的标题栏闪烁

Delphi6教程使窗体的标题栏闪烁

时间:2020-11-16 18:13来源:未知 点击:
分享到:
在程序运行过程中,经常会发生一些意想不到的情况,这时该如何提示用户呢?弹出一个对话框当然是一个办法,让窗体闪烁也不失为一个不错的选择。本实例演示如何让窗体闪烁起来。

在窗体中添加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)
推荐教程
关于我们--广告服务--免责声明--本站帮助-友情链接--版权声明--联系我们--网站地图          黑ICP备17004983号-1