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라는 변수가 있어서 오른쪽인지 왼쪽인지를
알수가 있는데 어떻게 하면되죠?
고수님들의 한수를 부탁드립니다.
그리고 좋은 토요일되세요.
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라는 변수가 있어서 오른쪽인지 왼쪽인지를
> 알수가 있는데 어떻게 하면되죠?
> 고수님들의 한수를 부탁드립니다.
> 그리고 좋은 토요일되세요.