• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Создать мигающий заголовок окна

Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,179
Симпатии
222
Баллы
155
VK
Можно воспользоваться функцией API FlashWindow():
Код:
 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;
 
Mazahaka_lab Оффлайн

Mazahaka_lab

Принятый Кодер
Сообщения
40
Симпатии
17
Баллы
50
Работает если интервал таймера изменить с 1000 на 100 . Спасибо за пример
 
Вверх Снизу