/code/ Узнаем координаты положения курсора мыши
Добавлено: 26.12.2006 (Вт) 15:46
- Код: Выделить всё
#COMPILE EXE
#INCLUDE "Win32Api.inc"
GLOBAL hDlg AS LONG
CALLBACK FUNCTION CbMain()
LOCAL Pt AS POINTAPI
STATIC hTimer AS DWORD
SELECT CASE CBMSG
CASE %WM_INITDIALOG
hTimer = SetTimer (CBHNDL, &hFEED, 25, BYVAL 0)
CASE %WM_TIMER
GetCursorPos Pt
CONTROL SET TEXT CBHNDL, 1001, FORMAT$(Pt.x,"000") + ", " + FORMAT$(Pt.y,"000")
CASE %WM_DESTROY
KillTimer CBHNDL, hTimer
END SELECT
END FUNCTION
FUNCTION PBMAIN () AS LONG
DIALOG NEW 0, "Cursor test:", , , 100, 50, %WS_SYSMENU TO hDlg
CONTROL ADD LABEL, hDlg, 1001,"Test",15,10,70,15,,%WS_EX_CLIENTEDGE
DIALOG SHOW MODAL hDlg , CALL CbMain
END FUNCTION
[/code]