Вверх ↑
Ответов: 68
Рейтинг: 1
#1: 2020-04-12 11:12:49 ЛС | профиль | цитата
andrestudio писал(а):

Add(MainForm,2953706,21,112)
{
DragForm=0
MouseCapture=0
Point(onMouseEnter)
Point(onMouseLeave)
Point(MouseX)
Point(MouseY)
Point(onKeyDown)
link(onMouseEnter,15679229:doTimer,[(65,139)(65,209)])
link(onMouseLeave,14348073:doEvent1,[])
link(onKeyDown,9063745:doReadKey,[(75,153)(75,300)])
}
Add(MouseEvent,5257017,154,126)
{
Point(doPosition)
link(X,11528909:Value,[(167,114)(153,114)(153,247)(139,247)])
link(Y,5545977:Value,[(174,114)(181,114)(181,247)(188,247)])
}
Add(Memory,11528909,133,203)
{
Point(Data)
link(onData,5545977:doValue,[])
link(Data,5257017:MouseX,[(139,181)(160,181)])
}
Add(Memory,5545977,182,203)
{
Point(Data)
link(Data,5257017:MouseY,[(188,181)(167,181)])
}
Add(Timer,15679229,77,203)
{
Interval=100
Enable=1
link(onTimer,11528909:doValue,[])
}
Add(Hub,14348073,77,140)
{
link(onEvent1,5257017:doPosition,[])
link(onEvent2,15679229:doStop,[(103,153)(103,185)(65,185)(65,216)])
}
Add(Keyboard,9063745,98,294)
{
Key=27
link(onReadKey,11564416:doEvent,[])
}
Add(IndexToChanel,11564416,140,294)
{
link(onEvent2,2953706:doClose,[(184,307)(184,223)(9,223)(9,139)])
}
Add(Label,8126663,119,91)
{
Left=125
Top=90
Width=65
Height=17
Caption="ESC - выход"
}


Очень интересное решение. Спасибо. Но есть одно но. Если форму сдвинуть за заголовок. то мышь сразу вырывается. Как исправить?

Код, который любезно предоставил Aziz, не имеет вроде такого огреха, но он исполнение менее плавное.

Спасибо вам ребята за помощь.
карма: 1

0