Заставить мерцать кнопку приложения на панели задач
Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch
Timer1.Interval = n (Tip for n = 1000 "1 second")
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Handle, true);
FlashWindow(Application.Handle, true);
end;
|