SetCapture

Синтаксис

SetCapture(HANDLE HSpace, STRING path, FLOAT flags)

Описание

Функция устанавливает прием сообщений от мышки и клавиатуры в заданный объект и соответствующее окно.

Параметры

HSpace Задает дескриптор двухмерного пространства. Данный параметр обязателен

path Путь на объект или “” для данного объекта.

Flags Флаги, влияющие на посылку сообщений: 1 - Означает, что до вызова функции ReleaseCapture() все вычисления замораживаются

Пример

// позволяет перемещать в окне мышкой объект "bar"

HANDLE HSpace,hobj

FLOAT _disable

FLOAT xPos,yPos,msg

if (hobj == #0)

hobj := GetObject2dByNameGetObject2dByName (~HSpace,#0,"bar")

RegisterObjectRegisterObject (~HSpace,~hobj,"",WM_ALLMOUSEMESSAGE,1 | 256)

_disable:=1

endif

if (msg)

if (msg==WM_LBUTTONDOWN)

SetCapture(HSpace,"",0)

button := 1

endif

if (msg==WM_MOUSEMOVE && button)

rez:=SetObjectOrg2dSetObjectOrg2d (HSpace,hobj,xPos,yPos)

endif

if (msg==WM_LBUTTONUP)

button := 0

ReleaseCaptureReleaseCapture ()

endif