- function WndProc(...);
- ....
- case (Msg) of
- WM_LBUTTONDOWN:
- begin
- ReleaseCapture(); SetCapture(h_Wnd);
- Gamestate.MouseX := LOWORD(lParam);
- Gamestate.MouseY := HIWORD(lParam);
- if NOT Gamestate.LMBClickProcessed then
- begin
- Gamestate.LMBClickProcessed:=TRUE;
- ProcessLMB;
- end;
- Result:=0;
- end;
- WM_LBUTTONUP:
- begin
- ReleaseCapture();
- Gamestate.MouseX := LOWORD(lParam);
- Gamestate.MouseY := HIWORD(lParam);
- Gamestate.LMBClickProcessed:=FALSE;
- Result := 0;
- end;
- ....