Есть ли у кого пример рисования на иконке минимизированного
приложения с помощью 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;
beginif (Msg.Message = WM_PAINT) and IsIconic(Application.Handle) thenbegin
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;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Рисование на минимизированной иконке", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!