|
|
|
новичок
участник
Last Login: 19.12.2001 14:54
Сообщ.: 6,
Visits: 67
|
|
Мне надо сделать такую фишку:
Если курсор находится над окном моей проги, то ширина окна становится в 2 раза больше, а если за пределами, то его ширина становится первоначальной
Я пробовал сделать через стандартную процедуру
для формы MouseMove, но это позволяет только расширить окно. А как сжать?
|
|
|
|
|
Supreme Being
администратор
Last Login: 13.11.2007 13:41
Сообщ.: 4 421,
Visits: 49 251
|
|
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim p As POINTAPI
Call GetCursorPos(p)
p.x ' Координата X
p.y ' Координата Y
|
|
|
|