Мигание иконки в Строке заголовка формы

← →
azl © (2007-01-14 21:44) [0]

Подскажите, пожалуйста, как можно сделать, чтобы иконка в строке заголовка и на кнопке в панели задач начала мигать? Например, я нажимаю кнопку и иконка начинает мигать (исчезать и появляться через определенное время)

Спасибо

← →
ors_archangel © (2007-01-14 23:40) [1]

Меняем иконку в заголовке по таймеру
var orignIcon: THandle; procedure TForm1.Timer1Timer(Sender: TObject); var x: boolean; begin x := (Caption <> "off"); if x then begin orignIcon := SendMessage(handle, WM_SETICON, ICON_SMALL or ICON_BIG, 0); Caption := "off"; end else begin SendMessage(handle, WM_SETICON, ICON_SMALL or ICON_BIG, orignIcon); Caption := "on"; end; end;
Минусы - 1. написно на WinAPI, 2. обязательно нужно менять Caption.

← →
azl © (2007-01-14 23:55) [2]

Спасибо

← →
Danger © (2007-01-15 08:04) [3]

В дополнение, в JVCL есть компонент, позволяющий делать анимированную/мигающую иконку в строке заголовка.

← →
azl © (2007-01-15 11:05) [4]

Блин, обшарил все в JVCL, видать пропустил. Сейчас еще пороюсь.
Спасибо за совет.

Не знаю, что в твоем понятии «мигать» (тут могут быть разночтения :) ), однако в WinApi есть такие функции для мигании заголовка в панели задач: FlashWindow & FlashWindowEx.

> Джо ©

Нет. FlashWindow - мигает сама кнопка, а не Icon на кнопке. А мне нужно, чтобы только иконка на кнопке мигала (появлялась и исчезала)

Мигание иконки в Строке заголовка формы Найти похожие ветки