Цитата:
Сообщение от 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: Сори за грязь