динамический Hint в трее

[photozaz]

Доброго вам времени суток!! Требуется помощь. Пишу программку для выключения компа в заданное время. Хочу сделать так, что бы при наведении на значек проги в трее динамически обновлялось оставшееся время.

procedure TForm1.CoolTrayIcon1MouseMove(Sender: TObject;
                                      Shift: TShiftState; X, Y: Integer);
begin
CoolTrayIcon1.Hint:= Statusbar1.Panels[0].Text;
end;

в данном случает, при наведении на значек отображается статическое время, т.е. например "осталось времени 02:34:10"
В статусбаре отображаются исходные данные, которые постоянно обновляются(через 1с).
Подскажите пожалуйста как можно сделать динамически обновляемый hint или возможно надо будет использовать другое свойство.

[Stilet]

осталось времени 02:34:10

А это как формируется?

[photozaz]

Statusbar1.Panels[0].Text:='Осталось времени: '+label11.caption;
label11.Caption:=timetostr(a1);

где а1 - разница времени, т.е. нужное для вывода значение.

[Altera]

А есть менять hint каждую секунду, по таймеру?

procedure tForm1.Timer1Timer(sender: tObject);
begin
   {timeToShutDown: tDateTime - время выключения компа}
   trayIcon.hint := timeToStr(timeToShutDown - time);
end;

[photozaz]

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

А есть менять hint каждую секунду, по таймеру?

не получается все равно. снова статический выходит! Появляется и замирает!

[Kotofff]

не получается все равно. снова статический выходит! Появляется и замирает!

Тогда тебе придется управлять подсказкой.
Т.е. изменив текст в ней, убрать ее и вывести снова.
Про это есть в Delphi World.

[photozaz]

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

Тогда тебе придется управлять подсказкой.
Т.е. изменив текст в ней, убрать ее и вывести снова.
Про это есть в Delphi World.

Не могли бы Вы тогда дать точные координаты этой статьи, раз сталкивались с этим?