| Статистика | 
|
|
Каталог статей
Как создать мигающую иконку (свернутое окно)?
Своим опытом делится Олег
Кулабухов:
Используйте 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)
|
Просмотров: 606
4
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
