На главную

Сделать мигающим заголовок окна и кнопку на панели TaskBar

Сделать мигающим заголовок окна и кнопку на панели TaskBar

ОГЛАВЛЕНИЕ    HOME  MAIL



Чтобы пользователь обратил внимание на Вашу программу (если, например, она выдала какое-то предупреждение), можно заставить мигать заголовок окна и кнопку программы на панели TaskBar.

var
  Flash: boolean;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Мигание заголовка окна
  FlashWindow(Form1.Handle, Flash);
  // Мигание заголовка на панели задач
  FlashWindow(Application.Handle, Flash);
  Flash := not Flash;
end;

главная страницазадать вопрос
email: delphi4all@narod.ru
Hosted by uCoz