[ZVER]

Я в этом деле новичек!
Кто знает подскажите как добавить значек в треи и как сделать чтобы при нажатии на него выполнялось деиствие (а лучше вылазило PopupMenu)!
Зарание пасиба!

[lmikle]

В Delphi 2005 - 2007 есто готовый компонент.
Если у тебя версия меньше - то смотри готовые компоненты на torry.ru, например. Там их куча.

[ZVER]

Сообщение от lmikle

В Delphi 2005 - 2007 есто готовый компонент.
Если у тебя версия меньше - то смотри готовые компоненты на torry.ru, например. Там их куча.

Извиняюсь а как он называеться?

[lmikle]

Я качал себе, кажется, TCoolTrayIcon.

[ZIP]

Сообщение от ZVER

Я в этом деле новичек!

Компонент TTrayIcon, категория Additional

1 : Hint - всплывающая маленькая подсказка
Visible - видима в трее или нет
2 : Hint - аналогично Hint из 1
BallonHint - посказка в всплывающем окошке[/indent]3 : Icons - Список иконок (ImageList2) для анимации или замены
PopupMenu - ссылка на PopupMenu1, открывается при щелчке на иконку правой кноп. мыши, код не нужен
4 : Hint - аналогично Hint из 1
Icon - Иконка (С компа, а не с ImageList2)
5 : Icons - аналогично Icons из 3
6 : Animate - анимирована ли иконка (ImageList2)
AnimateInterval - интервал смены иконок*
7 : BallonFlags - Значок всплывающей подсказки (сейчас буква i)
BallonTimeOut - время, которое подсказка видна* (сейчас - 3 сек.)
BallonTitle - заголвок подсказки.

-----------------------------------------------------------------

Код:

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin

TrayIcon1.Hint := 'Будильник установлен';
TrayIcon1.BalloonHint := 'Будильник установлен на ' + Edit1.Text + ' часов ' + Edit2.Text + ' минут.';TrayIcon1.BalloonFlags := bfInfo;
Trayicon1.BalloonTimeout := 3000;

TrayIcon1.ShowBalloonHint; 

Щелкаешь на иконку (что на форме) открываешь в инспекторе объектов свойство Events и дважды щелкаешь в поле OnClick. Открывается редактор кода, вставляешь туда

TrayIcon1.Hint := 'Будильник установлен';
TrayIcon1.BalloonHint := 'Будильник установлен на ' + Edit1.Text + ' часов ' + Edit2.Text + ' минут.';TrayIcon1.BalloonFlags := bfInfo;
TrayIcon1.BalloonTimeout := 3000;

TrayIcon1.ShowBalloonHint;

Учти, что TrayIcon1.ShowBalloonHint; должно быть после обьявления всех свойств. А если свойства менять не надо, а ты все задал в инспекторе объектов то просто:

procedure[/color] TForm1.TrayIcon1Click(Sender: TObject);
begin

TrayIcon1.ShowBalloonHint;

end;



Вот.



PS: Не бойся тыкать в параметрах дельфи. Все обратимо, а ты приобретешь опыт.
PPS: В редакторе кода зажми Ctrl (или Shift) и наведи мышь на текст и щелкни:
(Пример: наводим на ShowModal)
Form1.ShowModal

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

PPS: Что бы иконка исчезла, присвой значению TrayIcon1.Visible := False.

Совет. Вставь эту команду в событие OnDestry формы, что бы иконка исчезла при закрытии, а то она так и останется, пока на нее курсор не наведешь.

PPPS: Сори за грязь