Flash Title Bar Delphi

Flash title bar delphi, program sederhana ini akan membuat title bar menjadi berkedip-kedip. Biar keren dikit gitu.. hehehe.. :D

Langsung saja tambahkan 1 konponen Timer pada Form dan masukkan source code berikut pada event OnTimer :

procedure TForm1.Timer1Timer(Sender: TObject);<br />begin<br />  FlashWindow(Handle, true);<br />  FlashWindow(Application.Handle, true);<br />end;

Source Code Lengkap :

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, ExtCtrls;<br /><br />type<br />  TForm1 = class(TForm)<br />    Timer1: TTimer;<br />    procedure Timer1Timer(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />procedure TForm1.Timer1Timer(Sender: TObject);<br />begin<br />  FlashWindow(Handle, true);<br />  FlashWindow(Application.Handle, true);<br />end;<br /><br />end.

Program + Source Code dapat di download di SINI