Скачать: CL | DM;

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

← →
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, видать пропустил. Сейчас еще пороюсь.
Спасибо за совет.

---

← →
Джо ©   (2007-01-15 11:23) [5]

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

---

← →
azl ©   (2007-01-15 12:26) [6]

> Джо ©

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c