Обновление трея при наведенном курсоре

[nestquik]

При наведении курсора на иконку в трее нужно, чтобы время обновлялось, пока курсор находится на трее.
Есть такой код:

procedure TForm1.TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Timer1.Enabled=True then
  begin
    TrayIcon1.Hint:=tk2;
    tk2:=IntToStr(hour)+':'+IntToStr(min)+':'+IntToStr(sec);
  end
  else
    if Timer3.Enabled=True then
      begin
        TrayIcon1.Hint:=tk2;
        tk2:=IntToStr(hs)+':'+IntToStr(ms)+':'+IntToStr(ss);
      end
    else
      begin
        TrayIcon1.Hint:=tk2;
        tk2:=TimeToStr(Now);
      end
end;

[alextrof94]

Кидаем таймер на форму с нужным интервалом, тут похоже 1 сек (1000).
У балун-хинта выставляем большой интервал, хоть час...
Псевдокод:

procedure TForm1.TrayIcon1MouseEnter;
begin
 MyTimer.enabled:=true;
 TrayIcon1.ShowBaloonHint;
end;

procedure TForm1.TrayIcon1MouseLeave;
begin
 TrayIcon1.HideBaloonHint; //скрываем хинт, если есть show, должен быть и hide
 //правда реализация закрытия хинта может быть другая...
 MyTimer.enabled:=false;
end;

procedure TForm1.MyTimerTimer
begin
 tk2:=IntToStr(hour)+':'+IntToStr(min)+':'+IntToStr(sec);//считаем нужное время
 TrayIcon1.Hint:=tk2; //выводим
end;

[nestquik]

Если честно, то я не очень понял, что вы имели ввиду. Мне нужно чтобы показывало время в зависимости от включенного таймера: если включен таймер №1 то показывает время секундомера, если включен таймер №3 то показывает время таймера, если не включен ни 1 ни 3 то показывать текущее время по 2 таймеру... Исходя из вашего кода оно будет выводить время (если немного поправить), но хинт будет, как бы мерцать, правильно?

[alextrof94]

Ну, я думаю, мерцать ничего не должно.
Если балун-хинт - окно приложения, то скорее всего мы увидим такой же эффект, если бы просто ежесекундно меняли label на форме. При наведении мыши на значок программы в трее отрабатывает TrayIcon1MouseEnter (показывая сам хинт), при убирании мыши ~Leave (скрывая хинт).
Если такая реализация вообще возможна.
А расчет tk2 можете оставить такой, какой был.

procedure TForm1.MyTimerTimer
begin
 if Timer1.Enabled=True then
  begin
    TrayIcon1.Hint:=tk2;
    tk2:=IntToStr(hour)+':'+IntToStr(min)+':'+IntToStr(sec);
  end
  else
    if Timer3.Enabled=True then
      begin
        TrayIcon1.Hint:=tk2;
        tk2:=IntToStr(hs)+':'+IntToStr(ms)+':'+IntToStr(ss);
      end
    else
      begin
        TrayIcon1.Hint:=tk2;
        tk2:=TimeToStr(Now);
      end;
 TrayIcon1.Hint:=tk2; //выводим
end;

[nestquik]

у TrayIcon'a нет ивента MouseEnter и MouseLeave не судьба?

[alextrof94]

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

у TrayIcon'a нет ивента MouseEnter и MouseLeave не судьба?

Да, мой вариант отпадает...

[nestquik]

На соседнем форуме помогли, правда не совсем так, как я хотел но все же:

procedure TForm1.TrayIcon1BalloonClick(Sender: TObject);
begin
  Timer4.Enabled := not Timer4.Enabled;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
  if Timer1.Enabled = True then
  begin
    tk2 := IntToStr(hour) + ':' + IntToStr(min) + ':' + IntToStr(sec);
    TrayIcon1.BalloonHint := tk2;
  end
  else if Timer3.Enabled = True then
  begin
    tk2 := IntToStr(hs) + ':' + IntToStr(ms) + ':' + IntToStr(ss);
    TrayIcon1.BalloonHint := tk2;
  end
  else
    TrayIcon1.BalloonHint := TimeToStr(Now);
  TrayIcon1.ShowBalloonHint;
end;

procedure TForm1.TrayIcon1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TrayIcon1.Visible := false;
  Form1.Show;
  Timer4.Enabled := not Timer4.Enabled;
end;

procedure TForm1.TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Timer1.Enabled = True then
    TrayIcon1.Hint := 'Секундомер'
  else if Timer3.Enabled = True then
    TrayIcon1.Hint := 'Таймер'
  else
    TrayIcon1.Hint := 'Текущее время';
end;