Event'a у BalloonHint нет, зато вероятно есть WindowProc что принимает все сообщения для балунхинтовой формы, заморские товарисчи советуют создать потомка и перекрыть у него эту процедуру примерно так
Код:
...
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, так что не могу проверить это в натуре