Текущий архив: 2007.02.04;
Скачать: 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 вся ветка
Текущий архив: 2007.02.04;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.048 c
