Вопрос с System Tray

← →
Pvk2002 (2002-09-12 11:17) [0]

Подскажите пожалуйста где можно найти пример создания приложения
и при сворачивание главного окна сворачивать приложение в SysTray.

← →
Song (2002-09-12 11:19) [1]

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1020241631

← →
LordOfSilence (2002-09-12 11:34) [2]

C:\Program Files\Borland\CBuilder6\Examples\Controls\Traydemo

← →
Pvk2002 (2002-09-12 16:29) [3]

обращаюсь к Song, спасибо все хорошо, единственное,
если я нажимаю на кнопку приложения на панели задач,
то приложение сворачивается а в SysTray иконка не попадает.
как быть?

← →
Song (2002-09-12 16:34) [4]

Надо отлавливать ещё Application.onMinimize

← →
Pvk2002 (2002-09-12 16:37) [5]

если можно чуть поподробнее

← →
Song (2002-09-12 16:40) [6]

В хэлпе на это событие есть пример.

← →
Pvk2002 (2002-09-12 16:43) [7]

спасибо

← →
Pvk2002 (2002-09-12 18:42) [8]

теперь у меня возникла другая проблема, никак не могу решить ее.
отлавил onMinimize, нажимая на иконку в SysTray, приложение восстанавливается, но форма неактивная все перепробовал.

← →
Song (2002-09-12 19:10) [9]

Опишите Ваш TApplication.onMinimize и то что у Вас срабатывает по WM_LBUTTONDOWN/UP

← →
TTCustomDelphiMaster (2002-09-12 21:00) [10]

Pvk2002 (12.09.02 11:17)
В самом низу страницы.
http://www.delphikingdom.com/helloworld/index.htm

Там еще много чего есть.

← →
Pvk2002 (2002-09-13 10:30) [11]

TApplication.onMinimize:
...
ShowWindow(Application.MainForm.Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);

WM_LBUTTONDOUN/UP:
...
ShowWindow(Application.Handle, SW_SHOWNORMAL);
ShowWindow(Application.MainForm.Handle, SW_SHOWNORMAL);

← →
Alibaba (2002-09-13 10:35) [12]

Дык можно просто добавить компонент TTrayIcon в палитру компонентов Delphi и не изобретать велостпед. :)

← →
Pvk2002 (2002-09-13 10:38) [13]

нехочется использовать компонент, и к тому же там надо то всего несколько строк кода

← →
Pvk2002 (2002-09-13 11:54) [14]

помогите...

← →
Song (2002-09-13 11:54) [15]

В TApplication.onMinimize напиши:
SendMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);

← →
Song (2002-09-13 11:56) [16]

Только то что я сказал и ничего больше!

← →
Pvk2002 (2002-09-13 12:04) [17]

непомогло, может изза того что у меня Delphi 7?

← →
Song (2002-09-13 15:06) [18]

Пришли мне на мыло (coolsong@mail.ru) модуль или кусок модуля. Я посмотрю. Я же не телепат :)

Вопрос с System Tray Найти похожие ветки