| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Мигание иконки в Строке заголовка формы [D2005, 2000]

azl ©   (2007-01-14 21:44:00) 

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

Спасибо

---

azl   (2007-01-15 12:26:00) [1]

> Джо ©

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

---

Джо   (2007-01-15 11:23:00) [2]

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

---

azl   (2007-01-15 11:05:00) [3]

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

---

Danger   (2007-01-15 08:04:00) [4]

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

---

azl   (2007-01-14 23:55:00) [5]

Спасибо

---

ors_archangel   (2007-01-14 23:40:00) [6]

Меняем иконку в заголовке по таймеру
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.

---

Наверх