[Dreammaster]

Здравствуйте, уважаемые форумчане. У меня такое дело: Программа стартует сразу свернутая в трей и от туда выдает hint:

Код:

1 2 3 4 5

BalloonHint1.Description := label1.Caption +#13#10+ label2.Caption +#13#10+ label5.Caption+#13#10+ label3.Caption+#13#10+ label6.Caption+#13#10+ label4.Caption;     point.X := 1010;   //label1.Width;     point.Y := 990;   //label1.Height;     balloonhint1.ShowHint(edit1.ClientToScreen(point)); end;

Hint показывается определенное время и исчезает (Hide After 5000). Всё отлично работает. Но вот никак не могу придумать, как сделать hint кликабельным, т.е. пока подсказку видно, на нее можно было бы нажать и тогда происходит определенное действие. Event'a у BalloonHint нет, и как его создать я ума не приложу. Подбросьте идеи.

[lmikle]

Посмотри в MSDN, там при клике на этот хинт окну приложения посылается определенное сообщение, которое надо обработать самому. Я дописывал этот функционал в TCollTrayIcon и, если правильно помню, делал и при чистой WinAPI реализации. Главное, при создании иконки подсунуть правильный хэндл окна (то окно, в котором ты будешь потом обрабатывать это сообщение).

[Alegun]

Event'a у BalloonHint нет, зато вероятно есть WindowProc что принимает все сообщения для балунхинтовой формы, заморские товарисчи советуют создать потомка и перекрыть у него эту процедуру примерно так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

...   private     { Private declarations }     FOnBalloonClick: TNotifyEvent;   protected     procedure WindowProc(var Message: TMessage); override;   public     { Public declarations }   published     property OnBalloonClick: TNotifyEvent read FOnBalloonClick write FOnBalloonClick;   end; ...   procedure TMyBalloonHint.WindowProc(var Message: TMessage); begin     case Message.Msg of     WM_SYSTEM_TRAY_MESSAGE:       begin          case Message.lParam of            NIN_BALLOONUSERCLICK:              begin                FOnBalloonClick(Self);              end          else            inherited;          end;       end;     else     Inherited;   end; end;

В D7 к сожалению, нет класса TBalloonHint, так что не могу проверить это в натуре

[Dreammaster]

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

Event'a у BalloonHint нет, зато вероятно есть WindowProc

Хм...Благодарю. Приду с работы (аж в воскресенье)- буду пробовать.