Unit 'ELDsgxTypes' Package
[Overview][Constants][Types][Classes][Index] [#pl_exdesign]

TplMessage

Declaration

Source position: ELDsgxTypes.pas line 402

type TplMessage = packed record

  Msg: Integer;

  

  case Integer of

    0: (

        WParam: Integer;

  

        LParam: Integer;

  

        Result: Integer;

  

      );

    1: (

        WParamLo: Word;

  

        WParamHi: Word;

  

        LParamLo: Word;

  

        LParamHi: Word;

  

        ResultLo: Word;

  

        ResultHi: Word;

  

      );

    2: (

        Unused: array [0..3] of Word;

  

        Handled: LongBool;

  

      );

    3: (

        Pos: Integer;

  

        ScrollCode: Integer;

  

      );

    4: (

        TimerID: Integer;

  

        TimerProc: TTimerProc;

  

      );

    5: (

        TopLevel: HWND;

  

        HitTestCode: Word;

  

        MouseMsg: Word;

  

      );

    6: (

        case Integer of

          0: (

              Keys: Integer;

  

              case Integer of

                0: (

                    Position: TSmallPoint;

  

                  );

                1: (

                    XPos: SmallInt;

  

                    YPos: SmallInt;

  

                  );

            );

          1: (

              WheelDelta: Integer;

  

            );

      );

    7: (

        Active: Word;

  

        Minimized: WordBool;

  

        ActiveWindow: HWND;

  

      );

    8: (

        ItemID: Word;

  

        NotifyCode: Word;

  

        Ctl: HWND;

  

      );

    9: (

        BigIcon: LongBool;

  

      );

    10: (

        Reserved: Integer;

  

        case Integer of

          0: (

              Child: TControl;

  

            );

          1: (

              Sender: TControl;

  

            );

          2: (

              HintInfo: PHintInfo;

  

            );

      );

    11: (

        Control: TControl;

  

        case Integer of

          0: (

              Inserting: LongBool;

  

            );

          1: (

              Index: Integer;

  

            );

      );

    12: (

        WasActive: LongBool;

  

        Pause: PInteger;

  

      );

    13: (

        CharCode: Word;

  

        NotUsed: Word;

  

        KeyData: Integer;

  

      );

    14: (

        TextMax: Integer;

  

        Text: PChar;

  

      );

    15: (

        DC: HDC;

  

      );

    16: (

        FocusedWnd: HWND;

  

      );

    17: (

        NewSize: TSmallPoint;

  

      );

    18: (

        GroupIndex: Integer;

  

        Button: TControl;

  

      );

end;



CT Web help

CodeTyphon Studio