| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
иконка в диспетчере задач
зыбыл ник%) © (2007-06-02 15:23:00)Как отобразить в диспетчере задач НЕ иконку приложения или формы, а какую-либо другую
Savek (2007-06-02 17:59:00) [1]Некогда вникать, конец рабочего дня (!) возможно это тебе поможет
Рисование на минимизированной иконке
--------------------------------------------------------------------------------
Автор: Nick Hodges (Monterey, CA)
Есть ли у кого пример рисования на иконке минимизированного приложения с помощью Delphi?
Когда Delphi-приложение минимизировано, иконка, которая вы видите - реальное главное окно, объект TApplication, поэтому вам необходимо использовать переменную Application. Таким образом, чтобы удостовериться что приложение минимизировано, вызовите IsIconic(Application.Handle). Если функция возвратит True, значит так оно и есть. Для рисования на иконке создайте обработчик события Application.OnMessage. Здесь вы можете проверять наличие сообщения WM_Paint и при его нахождении отрисовывать иконку. Это должно выглядеть приблизительно так:
...
{ private declarations }
procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
...
procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean);
var
DC: hDC;
PS: TPaintStuff;
begin
if (Msg.Message = WM_PAINT) and IsIconic(Application.Handle) then
begin
DC := BeginPaint(Application.Handle, PS);
...осуществляем отрисовку с помощью вызовов Windows GDI...
EndPaint(Application.Handle, PS);
Handled := True;
end;
end;
procedure TForm1.OnCreate(Sender: TObject);
begin
Application.OnMessage := AppOnMessage;
end;
Код создан на основе алгоритма Neil Rubenking.
Если промахнулся просьба не материть сильно )
DVM (2007-06-02 16:36:00) [2]
> Как отобразить в диспетчере задач НЕ иконку приложения или
> формы, а какую-либо другую
Весьма вероятно, что Диспетчер задач, как и панель задач - пришлет Top-level окну приложения сообщение WM_GETICON или WM_QUERYDRAGICON (как один из методов) - на эти сообщения надо соответствующим образом прореагировать.
зыбыл ник%) (2007-06-02 16:30:00) [3]uup!
зыбыл ник%) (2007-06-02 15:56:00) [4]UP!
зыбыл ник%) (2007-06-02 15:53:00) [5]up
| |
