TTrayIcon with OnMouseEnter/OnMouseLeave events - delphi

Question

I’m considering switching from the abandoned TCoolTrayIcon to Delphi’s own TTrayIcon. The only thing that I’m missing is OnMouseEnter and OnMouseExit (≘OnMouseLeave) that I need in my case.
Is there an easy way to add these events to TTrayIcon?
(CoolTrayIcon does this with a timer ... I'm not sure if that's really the best solution)

Answer 1

Although nobody seemed to be really interested in an actual solution to this question, I guess it would be fair to post my solution anyway, in case somebody else ever searches for the same problem.
It was way less coding than I initially expected.
unit TrayIconEx;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.ExtCtrls;
type
TTrayIconEx = class(TTrayIcon)
private
CursorPosX, CursorPosY: Integer;
FOnMouseEnter: TNotifyEvent;
FOnMouseLeave: TNotifyEvent;
EnterLeaveTimer: TTimer;
procedure EnterLeaveEvent(Sender: TObject);
protected
procedure WindowProc(var Msg: TMessage); override;
procedure MouseEnter; virtual;
procedure MouseLeave; virtual;
public
constructor Create(AOwner: TComponent); override;
published
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Custom', [TTrayIconEx]);
end;
constructor TTrayIconEx.Create(AOwner: TComponent);
begin
inherited;
EnterLeaveTimer := TTimer.Create(Self);
EnterLeaveTimer.Enabled := False;
EnterLeaveTimer.Interval := 200;
EnterLeaveTimer.OnTimer := EnterLeaveEvent;
end;
procedure TTrayIconEx.WindowProc(var Msg: TMessage);
var
p: TPoint;
begin
if Assigned(FOnMouseEnter) or Assigned(FOnMouseLeave) then
begin
if (Msg.Msg = WM_SYSTEM_TRAY_MESSAGE) and (Msg.lParam = WM_MOUSEMOVE) then
begin
GetCursorPos(p);
CursorPosX := p.X;
CursorPosY := p.Y;
if not EnterLeaveTimer.Enabled then
MouseEnter();
end;
end;
inherited WindowProc(Msg);
end;
procedure TTrayIconEx.EnterLeaveEvent(Sender: TObject);
var
p: TPoint;
begin
//Win7+ supports Shell_NotifyIconGetRect(), but to support Vista and XP a workaround is required.
//-> If the position differs from the last captured position in MouseMove, then the cursor was moved away.
GetCursorPos(p);
if (CursorPosX <> p.X) or (CursorPosY <> p.Y) then
MouseLeave();
end;
procedure TTrayIconEx.MouseEnter;
begin
if Assigned(FOnMouseEnter) then
FOnMouseEnter(Self);
EnterLeaveTimer.Enabled := True;
end;
procedure TTrayIconEx.MouseLeave;
begin
EnterLeaveTimer.Enabled := False;
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
end;
end.

Answer 2

If all you want is a more advanced hint then you can Personalization its own hint like any other string with special character such as Enter and etc like this :
edit1.hint:='first row'+#13+'second row'+#13+#13+'last row';