Vcl.Controls.TCMMouseWheel

From RAD Studio API Documentation
Jump to: navigation, search

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

TCMMouseWheel is used with a CM_MOUSEWHEEL message.

An object of type TCMMouseWheel is used with a CM_MOUSEWHEEL message.

The TCMMouseWheel type is used internally.

See Also