Статистика | Зарегистрировано на сайте: Всего: 51635
Онлайн всего: 32 Гостей: 32 Пользователей: 0
|
|
Каталог статей
Как создать мигающую иконку (свернутое окно)?
Своим опытом делится Олег Кулабухов: Используйте 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;
|
Категория: API | Добавил: Lerka (22 Ноя 2012)
|
Просмотров: 577
| Рейтинг: 1.0/
4
Оштрафовать
| Жаловаться на материал |
|
|