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