Article #16103: Creating a flashing icon

 Question and Answer Database
FAQ1103D.txt Creating a flashing icon
Category :Windows API
Platform :All
Product :All 32 bit
Question:
How can I create a flashing icon?
Answer:
You can call the Windows API function FlashWindow():
Example:
var
Flash : bool;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Form1.Handle, Flash);
FlashWindow(Application.Handle, Flash);
Flash := not Flash;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Flash := False;
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99