OnMouseMove w Delphi 2010 i XE3

0

Witam.
W Delphi 2010 mam tak, że zdarzenie OnMouseMove wywoływane jest wtedy gdy najadę kursorem myszy na obiekt, ale również i wtedy kiedy nacisnę klawisz myszki i zjadę z tej kontrolki. Natomiast w Delphi XE3 niezależnie od tego czy przycisk jest wciśnięty czy zwolniony zdarzenie wywołuje się jedynie gdy kursor znajduje się nad obiektem.
Czy jest możliwość uzyskania tego samego efektu w Delphi XE3?

0

Jest taka możliwość, ale musisz nadpisać funkcję.

uses Windows;

const
  {$EXTERNALSYM WM_NCMOUSEMOVE}
  WM_NCMOUSEMOVE      = $00A0;
  {$EXTERNALSYM WM_MOUSEMOVE}
  WM_MOUSEMOVE        = $0200;


type
  TWMMove = packed record
    Msg: Cardinal;
    Unused: Integer;
    case Integer of
      0: (
        XPos: Smallint;
        YPos: Smallint);
      1: (
        Pos: TSmallPoint;
        Result: Longint);
  end;

  TWMNCMouseMove     = TWMNCHitMessage;
0

Jak dokładnie miałoby to wyglądać?

1 użytkowników online, w tym zalogowanych: 0, gości: 1