Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Мигание кнопки приложения

01.01.2007
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 
FlashWindow(Application.Handle, True);
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0


Timer1.Interval = n  (Tip for n = 1000  "1 second")
 
 procedure TForm1
.Timer1Timer(Sender: TObject);
 
begin
     
FlashWindow(Handle, true);
     
FlashWindow(Application.Handle, true);
 
end;

Взято с сайта: https://www.swissdelphicenter.ch


// Define FLASHWINFO structure as record type 
type
  FLASHWINFO
= record
    cbSize
: UINT;
    hWnd
: HWND;
    dwFlags
: DWORD;
    uCount
: UINT;
    dwTimeOut
: DWORD;
 
end;
 
TFlashWInfo = FLASHWINFO;
 
 
// Define dwFlags constants
const
  FLASHW_STOP
= 0;
  FLASHW_CAPTION
= 1;
  FLASHW_TRAY
= 2;
  FLASHW_ALL
= FLASHW_CAPTION or FLASHW_TRAY;
  FLASHW_TIMER
= 4;
  FLASHW_TIMERNOFG
= 12;
 
var
  Form1
: TForm1;
 
FWInfo: TFlashWInfo;
 
 
// Function declaration for WinAPI call
function FlashWindowEx(var pfwi: FLASHWINFO): BOOL; stdcall;
 
 
{...}
 
implementation
 
{...}
 
// Import external function from 'USER32.DLL' with the same name
function FlashWindowEx; external user32 Name 'FlashWindowEx';
 
procedure TForm1
.FormCreate(Sender: TObject);
begin
 
// Check for API function's availability
 
if not Assigned(@FlashWindowEx) then
 
begin
   
ShowMessage('API Function FlashWindowEx is not present... Exit program!');
   
Application.Terminate;
 
end
 
else
   
// Set default parameters
   
with FWInfo do
   
begin
      cbSize    
:= SizeOf(FWInfo);  // Size of structure in bytes
      hWnd      
:= Form1.Handle;      // Main's form handle
      dwFlags  
:= FLASHW_ALL;     // Flash both caption & task bar
      uCount    
:= 10;              // Flash 10 times
      dwTimeOut
:= 100;          // Timeout is 1/10 second apart
   
end;
end;
 
procedure TForm1
.Button1Click(Sender: TObject);
begin
 
// Flash on normal state
 
FlashWindowEx(FWInfo);
end;
 
procedure TForm1
.Button2Click(Sender: TObject);
begin
 
// Flash on minimized state
 
WindowState := wsMinimized;  // Application.Minimize;
 
FlashWindowEx(FWInfo);
end;
 

https://delphiworld.narod.ru/

DelphiWorld 6.0