当前位置: 源码素材网 » Delphi教程 » 详情页

标题栏闪烁的Delphi代码实现方法

  •   时间:2019-02-26
  • 概述:标题栏 闪烁

本Delphi实例演示如何让窗体的标题栏闪烁起来,窗体每隔1秒钟就会闪烁一次。不过如果未选中“闪烁时窗体标题栏变灰”复选框,是看不到任何效果的。实现思路大概是:在窗体中添加TCheckBox和TTimer组件,TCheckBox组件用来设置标题栏在窗体闪烁时是否变灰,TTimer组件用于为闪烁窗体定时。

编程思路:将窗体上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.

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

    相关声明:

      若“标题栏闪烁的Delphi代码实现方法”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。