| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Tray

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

the_ram ©   (2004-08-02 15:15:00) 

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

---

Kurtevich   (2004-08-03 14:26:00) [21]

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

---

new user   (2004-08-03 14:17:00) [22]

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

---

Kurtevich   (2004-08-03 14:12:00) [23]

странно, у меня в проге совершенно спокойно это делается, вот даже кусок кода:
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 13:50:00) [24]

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

---

grom   (2004-08-02 18:43:00) [25]

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

---

Pass   (2004-08-02 16:36:00) [26]

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

---

Profi   (2004-08-02 16:20:00) [27]

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

---

MetalFan   (2004-08-02 15:40:00) [28]

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

---

Sancho   (2004-08-02 15:20:00) [29]

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;

---

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

Наверх