Tray

← →
the_ram (2004-08-02 15:15) [0]

Добрый день!! Подскажите пожалуйста, как разместить иконку в Трее. Спасибо.

← →
Sancho © (2004-08-02 15:20) [1]

Var niData: TNotifyIconData;
begin
With niData Do
Begin
cbSize:= SizeOf(TNotifyIconData);
Wnd:= Handle;
uID:= 1;
uFlags:= NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage:= WM_TRAYCALLBACK;
hIcon:= Application.Icon.Handle;
szTip:= "хинт_который_будет_появляться_когда_мышь_над_иконкой";
End;
Shell_NotifyIcon(NIM_ADD, @niData);
end;

← →
MetalFan © (2004-08-02 15:40) [2]

FAQ!!!!!!!!!!
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988624981&n=15

← →
Profi © (2004-08-02 16:20) [3]

А еще проще скачать компонент! Их навалом.

← →
Pass © (2004-08-02 16:36) [4]

Нафиг эти компаненты. Лучше ручками.

← →
grom (2004-08-02 18:43) [5]

TrayIcon
http://denisov.i2x2.ru/delphi/units.htm

← →
new user (2004-08-03 13:50) [6]

У меня другая проблема,
во время работы программы необходимо отображать
в Application.Title процент выполненного задания,
несмотря ни на что Application.Title остается как
был.
И второе, после окончания работы программы иконка не исчезает,
исчезает только после того, как над ней пройтись курсором мыши.
Что я делаю не так?

← →
Kurtevich (2004-08-03 14:12) [7]

странно, у меня в проге совершенно спокойно это делается, вот даже кусок кода:
procedure TFWait.UpdateCaption(); var vbtPercent: byte; begin if ProgressBar.Max>0 then begin vbtPercent := Round((ProgressBar.Position/ProgressBar.Max)*100); if vbtPercent <> fbtPercent then begin fbtPercent := vbtPercent; Caption := IntToStr(fbtPercent) + "% - " + fsTitle; end; end else Caption := fsTitle; if IsIconic(Application.Handle) then Application.Title := Caption else Application.Title := fsTitle; end;

← →
new user (2004-08-03 14:17) [8]

ну да, у меня попроще, но смысл тот же, а где вы вызываете
эту свою процедуру, в WNDProc?

← →
Kurtevich (2004-08-03 14:26) [9]

да нет, в TFWait.StepIt(), которая вызывается, когда надо увеличить позицию прогрессбара... хотя, если абстрагироваться и посмотреть со стороны, то... да, в WndProc :)

← →
new user (2004-08-03 15:06) [10]

а что такое у Вас IsIconic

← →
Kurtevich (2004-08-03 15:18) [11]

IsIconic - это виндовзкая функция, которая возвращает True если окно минимизировано

← →
new user (2004-08-03 15:29) [12]

извиняюсь за глупый вопрос :)

← →
new user (2004-08-03 17:04) [13]

Все равно не получается, уже упростил дальше некуда:

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;

← →
Kurtevich (2004-08-03 17:14) [14]

вот этого я ваще не понял:
> if TWMSysCommand(Message).CmdType and $FFF0 = SC_MINIMIZE
>

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

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

← →
panov © (2004-08-03 17:19) [15]

Вообще, замечательно поиск работает.

http://delphimaster.net/view/4-1091136573/

← →
new user (2004-08-03 17:19) [16]

это минимизация окна, а не работает
изменение Application.Title, я там уже без всяких
вычислений текущее вермя вывожу, а оно не изменяется

← →
panov © (2004-08-03 17:47) [17]

>new user (03.08.04 17:19) [16]

Для изменгения всплывающего хинта после изменения Application.Title в примере из http://delphimaster.net/view/4-1091136573/ достаточно добавить код IconTray(NIM_MODIFY);

← →
new user (2004-08-03 18:13) [18]

Спасибо, получилось!

← →
new user (2004-08-03 18:21) [19]

не пойму только почему после окончания работы программы иконка не исчезает, исчезает только после того, как над ней пройтись курсором мыши, а?

← →
grom (2004-08-03 22:33) [20]

TrayIcon
http://denisov.i2x2.ru/delphi/units.htm
смотри пример
ищи Shell_NotifyIcon(NIM_DELETE,@nim);

>new user (03.08.04 18:21) [19]
Опять же смотри пример и удаление иконки.

ЛЮДИ!!! ВЫ ЧЕГО??? ЧУТЬ ЛИ НЕ КАЖДЫЙ МЕСЯЦ ПОЯВЛЯЕТСЯ ХОТЬ ОДИН ТОПИК НА ЭТУ ТЕМУ!!! СТАРЫЕ ТОПИКИ НАРОДУ ПОЧИТАТЬ ЛЕНЬ И В СПРАВКЕ ПОКОПАТЬСЯ???!!!

← →
имя (2004-08-10 21:13) [23]

Удалено модератором

← →
имя (2004-08-10 21:13) [24]

Удалено модератором

← →
имя (2004-08-10 21:13) [25]

Удалено модератором

← →
имя (2004-08-10 21:13) [26]

Удалено модератором

← →
имя (2004-08-10 21:13) [27]

Удалено модератором

← →
имя (2004-08-10 21:13) [28]

Удалено модератором

← →
имя (2004-08-10 21:13) [29]

Удалено модератором

Tray Найти похожие ветки