![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Необходимо сделать невидимое приложение, только значок в трее
Перепробовал различные варианты, остановился пока на этом Код:
procedure TForm1.ApplicationEvents1Activate(Sender: TObject); begin Hide(); WindowState := wsMinimized; end; При этом на панели задач приложение все равно отображается на долю секунды Также при запуске по расписанию из планировщика задач приложение отображается на панели задач Как вылечить? |
#2
|
||||
|
||||
![]() Попробуй
Код:
ShowWindow(Handle, SW_MINIMIZE); ShowWindow(Handle, SW_HIDE); ShowWindow(Application.Handle, SW_HIDE); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 28.01.2014 в 04:55. |
#3
|
|||
|
|||
![]() В файле проекта:
Код:
Applicartion.ShowMainForm := False; ЗЫ. Компонент TCoolTrayIcon умеет это делать сам, там есть соотв. свойство. |
#4
|
|||
|
|||
![]() Ошибся, пока не помогло
Последний раз редактировалось mad8vad, 28.01.2014 в 11:12. |
#5
|
||||
|
||||
![]() Приведённый выше код, у меня используется для сворачивания в TrayBar.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |