这是个有意思的窗口设计实例源码，Delphi实现窗体失去焦点时标题栏闪动特效，flashwindow特效，这样可吸引操作者注意，其实实现这一功能并不复杂，以下代码最关键： 　　procedureTForm1.Timer1Timer(Sender:TObject); 　　begin 　　flashwindow(Handle,true); 　　end; 　　procedureTForm1.WMACTIVATEAPP(varmessage:TWMACTIVATEAPP); 　　begin 　　ifMessage.Activethen 　　form1.Timer1.Enab