MouseEnter/MouseLeave ohne VCL!

[Luckie]

Ich versuche das auch gerade:

Delphi-Quellcode:

    WM_MOUSELEAVE:
      begin
        WindowHover := False;
        LinkFont := CreateFont(LINKFONTSIZE, 0, 0, 0, 400, 0, 0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
          CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, LINKFONTNAME);
        if LinkFont <> 0 then
          SendDlgItemMessage(hDlg, ID_STC_WEB, WM_SETFONT, Integer(LinkFont), Integer(true));
      end;
    WM_MOUSEMOVE:
      begin
        GetCursorPos(pt);
        GetWindowRect(GetDlgItem(hDlg, ID_STC_WEB), rect);
        if PtInRect(rect, pt) then
        begin
          begin
            WindowHover := True;
            LinkFont := CreateFont(LINKFONTSIZE, 0, 0, 0, 400, 0, 1, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
              CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, LINKFONTNAME);
            if LinkFont <> 0 then
              SendDlgItemMessage(hDlg, ID_STC_WEB, WM_SETFONT, Integer(LinkFont), Integer(true));
            EventTrack.cbSize := SizeOf(EventTrack);
            EventTrack.dwFlags := TME_LEAVE;
            EventTrack.hwndTrack := GetDlgItem(hDlg, ID_STC_WEB);
            EventTrack.dwHoverTime := HOVER_DEFAULT;
            TrackMouseEvent(EventTrack);
          end;
        end;

ID_STC_WEB ist ein Static Kontrol. Aber ich bekomme keine WM_MOUSELEAVE Nachricht.