delphi实现窗体闪烁功能

delphi实现窗体闪烁功能

以前做窗口闪动时都没有考虑到让任务栏上的按钮闪动的问题,

现在一个客户需要任务栏按钮闪动,发现以前使用的flashwindow不能达到要求了,

查找了一下,找到flashwindowex这个API

如果您创建的应用程序是运行在Windows 98或更高版本操作系统上,您可以通过调用API函数FlashWindowEx并赋给它一个FlashWInfo结构体来实现. 而如果是运行在Windows 95上则比较麻烦, 但您也可以通过使用一个Timer组件来实现想要的效果。

FlashWindowEx

当您调用API函数FlashWindowEx时,一个TFlashWInfo被用来控制Windows实现该闪烁功能的信息. 幸运的是,Delphi已经为您封装了该结构体。Delphi中它被申明如下:

type     TFlashWInfo = record       cbSize : LongInt;       hWnd : LongInt;       dwFlags : LongInt;       uCount : LongInt;       dwTimeout : LongInt;    end;

您所需做的全部事情仅仅是填充和组装该记录类型,并调用API函数。本例中,我把两者放在了一个按钮的OnClick事件中,当然您也可以放置它们到任何合适的地方:

procedure TForm1.Button1Click(Sender: TObject);  var     FWinfo: TFlashWInfo;  begin   FWinfo.cbSize := 20;   FWinfo.hwnd := Application.Handle; // 闪烁窗口的句柄   FWinfo.dwflags := FLASHW_ALL;   FWinfo.ucount := 10; // 闪烁的次数   FWinfo.dwtimeout := 0; // 速度以毫秒为单位, 0 默认为与指针闪烁的速率相同 FlashWindowEx(FWinfo); // 使它闪烁!  end;

dwflags指示了闪烁的方式,下面是dwflags属性的取值定义:

FLASHW_STOP = 0      // 停止闪烁  FLASHW_CAPTION = 1   // 闪烁窗口标题  FLASHW_TRAY = 2      // 闪烁任务栏按钮  FLASHW_ALL = 3       // 闪烁窗口标题与任务栏按钮FLASHW_TIMER = 4     // 不停地闪烁,直到FLASHW_STOP标志设置  FLASHW_TIMERNOFG = 5 // 不停地闪烁直到窗口被前置

以上只有在Windows 98或更高版本操作系统上才有效,如果您要在Windows 95上实现,您就需要采取另一不同的途径:

FlashWindow

Windows 95下 (并且Delphi 3及更底版本并包含适用的API封装) 需要不同的途径. 该操作系统下没有FlashWindowEx这个API函数,您需要使用FlashWindow来代替. (FlashWindow还能在更低版本的操作系统中被调用。)

但问题是FlashWindow只能闪烁一次,所以要达到闪烁按钮的目的就需要用到一个timer组件。 当然,这样一来也就加大了宝贵的系统资源开销 - 但它能完成我们想要的效果。

为了达到本示例的目的,您需要创建一个form,并放上一个Timer组件和一个按钮组件。 之后选中Timer组件并双击,OnTimer事件将被创建. 接着添加以下代码:

procedure TForm1.Timer1Timer(Sender: TObject);  begin     FlashWindow(Application.Handle, True);  end;

下一步,你需要启动闪烁。这一步很简单,在Button的OnClick事件中设置Timer的Enabled属性为Ture。本例中我使用Button的事件来切换闪烁的开与关:

procedure TForm1.Button1Click(Sender: TObject);  begin     Timer1.Enabled := not Timer1.Enabled;  end;

到此为止,两种不同方法实现了相同的功能。

时间: 2024-10-13 10:58:51

delphi实现窗体闪烁功能的相关文章

Delphi中窗体的事件

Delphi中窗体的事件 Form窗体可以响应各种各样的时间,在Object Inspector的Events页面中罗列了一大堆,如下图: 下面将要列出一些常用的事件. 1.OnActivate 当窗体被初始激活时,就会发生OnActivate事件,当初始创建窗体或者用户从一个窗体切换到另一个窗体时,就可能激活窗体,Application对象也有一个OnActivate事件,当用户从一个应用程序切换到另一个应用程序时,就会产生此事件. 2.OnClose和OnCloseQuery 当关闭一个应用

C#语言第一课-Windows窗体基本功能(Login登录界面)

本菜鸟由于实习工作的原因,不得不快速接触C#语言,刚刚好又要做毕业设计,所以就通过自学的方式一举两得地完成这两件事情. 故此文字记录或代码中的各种文件名之类均是以毕业设计为模版记录的,看着不方便之处请海涵.(毕竟菜鸟的我暂时还不能把代码写的特别规范) 在学习过程中以日记或者周记的方式记录我遇见的问题和各种学习到的知识以此来巩固,如果有和我一样情况的志同道合的菜鸟,那我们就一起相互交流和学习吧~ 文字记录的错处或者可以优化的地方,如果有大神看见,更希望不吝赐教~ 毕业设计的大概模型是类似QQ的聊天

c# winform窗体闪烁解决方法

在主窗体中任意位置加上下面的代码即可 protected override CreateParams CreateParams { get { CreateParams cp = base.CreateParams; cp.ExStyle |= 0x02000000; return cp; } } c# winform窗体闪烁解决方法

Delphi默认窗体随想

Delphi中新建一个Form或者Frame时,它的字体都是西文习惯,这样就有可能造成在其他机器上由于字体的原因,窗体十分不美观.怎样才能为Delphi设置一个默认窗体,让它的字体Font符合中国习惯呢,而不用新建时再手工去修改窗体的Font,下面就是解决这个问题的方法.并且随之引出了Delphi的一个非常好的功能:1.新建窗体符合中国字体习惯 (1)一定要将窗体的Font属性修改为: (字体) 宋体, (大小) 9号(也就是小五), (字符集) CHINESE_GB2312 以符合中国的字体习

delphi模态窗体最小化会隐藏的问题

在使用delphi创建模态窗体的时候最小化窗体会导致最小化的窗体不可见,再次点击主窗体才会显示. 在这个模态窗体中增加以下函数 procedure WmSysCommand(var msg: TMessage); message WM_SYSCOMMAND; procedure TForm1.WmSysCommand(var msg: TMessage); begin inherited;//必须加,否则模态窗关闭最大化还原将不能用 if msg.WParam = SC_MINIMIZE the

Delphi打开窗体时报"Corrupt Portfolio Stream"

今天在打开一个Delphi窗体时报了这么一个错误: Corrupt Portfolio Stream 查了一下,主要是由于Delphi窗体的*.ddp文件损坏引起的. 解决方法: 删除.ddp 文件,重新打开窗体即可. 有时候还是不行,这个时候用记事本打开 那个.dfm文件,通常窗体都是以Text形式存储的,如果发现是二进制代码,那么八成窗体文件也坏了,这个时候删除这个窗体文件, 把 *.~dfm备份文件改名字成 *.dfm ,然后就可以了. 关于*.ddp file, Delphi Diagr

解决窗体闪烁问题的方法

1.在声明窗体类时加入:  private    procedure CreateParams(var Params: TCreateParams); override; 2.在窗体实现部分加入:  procedure TFrm_Main.CreateParams(var Params: TCreateParams);  begin    inherited;    Params.ExStyle := 33554432; //0x 02 00 00 00  end; 已经测试过,确实能有效解决含

Delphi给窗体镶边-为控件加边框,描边,改变边框颜色

PS:因为我现在用的电脑是WIN7 64位系统,所以没有实现功能,不知道XP是否可行. 1 //1.定义方法 2 procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT; 3 4 //2.实现方法 5 procedure TForm1.WMNCPaint(var Msg: TWMNCPaint); 6 var 7 dc:hDc; 8 Pen:hPen; 9 OldPen:hPen; 10 OldBrush:hBrush; 11

C# winForm 窗体闪烁问题

如果你在Form中绘图的话,不论是不是采用的双缓存,都会看到图片在更新的时候都会不断地闪烁,解决方法就是在这个窗体的构造函数中增加以下三行代码: 请在构造函数里面底下加上如下几行:SetStyle(ControlStyles.UserPaint, true);SetStyle(ControlStyles.AllPaintingInWmPaint, true); // 禁止擦除背景.SetStyle(ControlStyles.DoubleBuffer, true); // 双缓冲 参数说明: U