Главная страница | назад





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