Q&A

  • 콤포넌트를 만들려고 하는데..
procedure WMLButtonDown(var message : TWMLButtonDown); message WM_LBUTTONDOWN;



procedure TMovePanel.WMLButtonDown(var message : TWMLButtonDown);

var

ltCursor : TPoint;

begin

pbDown := True;

GetCursorPos(ltCursor);

piOldX := ltCursor.x;

piOldY := ltCursor.y;

piOldLeft := Self.Left;

piOldTop := Self.Top;



inherited;

end;

위처럼 판넬에 마우스다운이벤트가 일어날때 이것이 오른쪽클릭인지 왼쪽클릭인지를

알고 싶은데 어떻게 해야하죠?

help에보니까 WM_LBUTTONDOWN에는 fwKeys라는 변수가 있어서 오른쪽인지 왼쪽인지를

알수가 있는데 어떻게 하면되죠?

고수님들의 한수를 부탁드립니다.

그리고 좋은 토요일되세요.

1  COMMENTS
  • Profile
    kylix 2001.03.17 20:49
    WM_LButtonDown - 마우스왼쪽버튼클릭

    WM_RButtonDown - 마우스오른쪽버튼클릭



    Mmessage.fwKeys로 판단하는 것은 두 버튼이 동시에 눌려졌을때, Control/Shift키와 조



    합됐을때 판단하는 것이고 WM_LButtonDown에서 굳이 오른쪽버튼까지 판단하실 필요는



    없을듯...



    호야 wrote:

    > procedure WMLButtonDown(var message : TWMLButtonDown); message WM_LBUTTONDOWN;

    >

    > procedure TMovePanel.WMLButtonDown(var message : TWMLButtonDown);

    > var

    > ltCursor : TPoint;

    > begin

    > pbDown := True;

    > GetCursorPos(ltCursor);

    > piOldX := ltCursor.x;

    > piOldY := ltCursor.y;

    > piOldLeft := Self.Left;

    > piOldTop := Self.Top;

    >

    > inherited;

    > end;

    > 위처럼 판넬에 마우스다운이벤트가 일어날때 이것이 오른쪽클릭인지 왼쪽클릭인지를

    > 알고 싶은데 어떻게 해야하죠?

    > help에보니까 WM_LBUTTONDOWN에는 fwKeys라는 변수가 있어서 오른쪽인지 왼쪽인지를

    > 알수가 있는데 어떻게 하면되죠?

    > 고수님들의 한수를 부탁드립니다.

    > 그리고 좋은 토요일되세요.