Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Tray

Страницы: 1 2 >
the_ram © (2004-08-02 15:15:00)
Добрый день!! Подскажите пожалуйста, как разместить иконку в Трее. Спасибо.

(2004-08-10 21:13:00) [1]
Удалено модератором

(2004-08-10 21:13:00) [2]
Удалено модератором

(2004-08-10 21:13:00) [3]
Удалено модератором

(2004-08-10 21:13:00) [4]
Удалено модератором

(2004-08-10 21:13:00) [5]
Удалено модератором

(2004-08-10 21:13:00) [6]
Удалено модератором

(2004-08-10 21:13:00) [7]
Удалено модератором

OSokin (2004-08-10 20:34:00) [8]
ЛЮДИ!!! ВЫ ЧЕГО??? ЧУТЬ ЛИ НЕ КАЖДЫЙ МЕСЯЦ ПОЯВЛЯЕТСЯ ХОТЬ ОДИН ТОПИК НА ЭТУ ТЕМУ!!! СТАРЫЕ ТОПИКИ НАРОДУ ПОЧИТАТЬ ЛЕНЬ И В СПРАВКЕ ПОКОПАТЬСЯ???!!!

panov (2004-08-03 22:39:00) [9]
>new user (03.08.04 18:21) [19]
Опять же смотри пример и удаление иконки.

grom (2004-08-03 22:33:00) [10]
TrayIcon
http://denisov.i2x2.ru/delphi/units.htm
смотри пример
ищи Shell_NotifyIcon(NIM_DELETE,@nim);

new user (2004-08-03 18:21:00) [11]
не пойму только почему после окончания работы программы иконка не исчезает, исчезает только после того, как над ней пройтись курсором мыши, а?

new user (2004-08-03 18:13:00) [12]
Спасибо, получилось!

panov (2004-08-03 17:47:00) [13]
>new user (03.08.04 17:19) [16]

Для изменгения всплывающего хинта после изменения Application.Title в примере из http://www.delphimaster.ru/cgi-bin/forum.pl?id=1091136573&n=5достаточно добавить код IconTray(NIM_MODIFY);

panov (2004-08-03 17:19:00) [14]
Вообще, замечательно поиск работает.

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1091136573&n=5

new user (2004-08-03 17:19:00) [15]
это минимизация окна, а не работает
изменение Application.Title, я там уже без всяких
вычислений текущее вермя вывожу, а оно не изменяется

Kurtevich (2004-08-03 17:14:00) [16]
вот этого я ваще не понял:
> if TWMSysCommand(Message).CmdType and $FFF0 = SC_MINIMIZE
>

особенно вот этого: $FFF0 = SC_MINIMIZE
что здесь имеется в виду?

и что именно не работает?

new user (2004-08-03 17:04:00) [17]
Все равно не получается, уже упростил дальше некуда:

procedure TForm1.WndProc(var Message: TMessage); begin UpdateTitle; case Message.Msg of WM_SYSCOMMAND: if TWMSysCommand(Message).CmdType and $FFF0 = SC_MINIMIZE then begin Shell_NotifyIcon(NIM_ADD, @FIconData); Application.MainForm.Visible := False end else inherited; UM_TRAY: if Message.LParam = WM_LBUTTONDBLCLK then begin Application.MainForm.Visible := True; ShowWindow(Application.Handle, SW_HIDE); Shell_NotifyIcon(NIM_DELETE, @FIconData) end; else inherited end end;

Procedure TForm1.UpdateTitle(); Begin if IsIconic(Application.Handle) then Application.Title := TimeToStr(now); End;

new user (2004-08-03 15:29:00) [18]
извиняюсь за глупый вопрос :)

Kurtevich (2004-08-03 15:18:00) [19]
IsIconic - это виндовзкая функция, которая возвращает True если окно минимизировано

new user (2004-08-03 15:06:00) [20]
а что такое у Вас IsIconic

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »