Функция GetClientRect

Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

GetClientRect получает координаты клиентской области окна. Прямоугольник получает координаты левых верхних и нижних правых углов клиентской области окна. Координата левого верхнего угла равна (0,0).

hwnd

Описатель окна получения координат клиентской области окна

lpRect

Переменная, которая получает клиентские координаты. Поля left и top структуры имеют значение 0. Поля right и bottom содержат ширину и высоту окна

Пример

' Смотри также пример tooltips.zip

' Ограничим движения курсора мыши
' клиентской областью формы

Dim client As RECT
Dim upperleft As POINTAPI

GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client

' чтобы снять ограничение
'ClipCursor ByVal 0&

Смотри также

GetWindowRect

Категория

Окна