API:Vcl.Controls.TCMMouseWheel

• Up to Parent: Vcl.Controls
• Fields

Delphi

  TCMMouseWheel = record
    Msg: Cardinal;
    MsgFiller: TDWordFiller;
    ShiftState: TShiftState;
    WheelDelta: SmallInt;
    ShiftStateWheel: TDWordFiller;
    case Integer of
      0: (
        XPos: Smallint;
        YPos: Smallint;
        XYPos: TDWordFiller);
      1: (
        Pos: TSmallPoint;
        PosFiller: TDWordFiller;
        Result: LRESULT);
  end;

C++

struct DECLSPEC_DRECORD TCMMouseWheel
{
public:
    unsigned Msg;
#ifndef _WIN64
#else /* _WIN64 */
    Winapi::Messages::TDWordFiller MsgFiller;
#endif /* _WIN64 */
    System::Classes::TShiftState ShiftState;
    short WheelDelta;
#ifndef _WIN64
#else /* _WIN64 */
    Winapi::Messages::TDWordFiller ShiftStateWheel;
#endif /* _WIN64 */
public:
    union
    {
        struct
        {
            System::Types::TSmallPoint Pos;
#ifdef _WIN64
            Winapi::Messages::TDWordFiller PosFiller;
#endif /* _WIN64 */
            NativeInt Result;
        };
        struct
        {
            short XPos;
            short YPos;
#ifndef _WIN64
#else /* _WIN64 */
            Winapi::Messages::TDWordFiller XYPos;
#endif /* _WIN64 */
        };
    };
};

Properties

Type	Visibility	Source	Unit	Parent
record struct	public	Vcl.Controls.pas Vcl.Controls.hpp	Vcl.Controls	Vcl.Controls

Description

Embarcadero Technologies does not currently have any additional information. Please help us document this topic by using the Discussion page!