Interessantes Problem mit Scroll und Sendmessage

[rollstuhlfahrer]

HI,

ich finde, dass das TWMMouseWheel einen logischen Fehler enthält. Wenn man sich die Struktur einer Nachricht anschaut, sieht man, dass diese immer einen Rückgabewert hat. Außerdem ich der 2. Zweig dann 1,5 mal so groß wie der erste. Meiner Meinung nach müsste es so aussehen: (Weil Pos enthällt ja XPos und YPos).

Delphi-Quellcode:

TWMMouseWheel = packed record
  Msg: Cardinal;
  Keys: SmallInt;
  WheelDelta: SmallInt;

  case Integer of
    0: (XPos: Smallint;
        YPos: Smallint;);
    1: (Pos: TSmallPoint;)

  Result: Longint;
end;

Bernhard