Add(MainForm,2953706,21,105)
{
 Point(Handle)
}
Add(PaintBox,12465343,154,105)
{
 Width=735
 Height=781
 Align=5
 Color=16777215
 WinStyle=1
 ColorSp=0
 ClearBeforeDraw=0
 Point(onMouseDown)
 Point(onMouseUp)
 link(onMouseDown,945688:doMove,[(233,118)(233,195)])
 link(onMouseUp,16593087:doMessage,[])
}
Add(Message,16593087,273,119)
{
}
Add(MoveWindow,945688,280,189)
{
 link(Handle,2953706:Handle,[(286,163)(27,163)])
}

Add(MainForm,2953706,504,189)
{
 Point(Handle)
}
Add(PaintBox,12465343,434,224)
{
 Width=735
 Height=781
 Align=5
 Color=16777215
 WinStyle=1
 ColorSp=0
 ClearBeforeDraw=0
 Point(onMouseDown)
 link(onMouseDown,7064651:doEvent1,[])
}
Add(Message,16593087,504,273)
{
}
Add(MoveWindow,945688,504,231)
{
 link(Handle,2953706:Handle,[])
}
Add(Hub,7064651,476,231)
{
 link(onEvent1,945688:doMove,[])
 link(onEvent2,16593087:doMessage,[(497,244)(497,279)])
}

Add(MainForm,7316905,308,112)
{
 Point(Handle)
}
Add(PaintBox,12465343,203,147)
{
 Width=735
 Height=781
 Align=5
 Color=16777215
 WinStyle=1
 ColorSp=0
 ClearBeforeDraw=0
 Point(onMouseDown)
 link(onMouseDown,7064651:doEvent1,[])
}
Add(MoveWindow,945688,308,161)
{
 link(Handle,7316905:Handle,[])
}
Add(Hub,7064651,245,154)
{
 OutCount=3
 link(onEvent1,13311364:doStop,[(270,160)(270,223)])
 link(onEvent2,945688:doMove,[])
 link(onEvent3,13311364:doTimer,[(298,174)(298,216)])
}
Add(Timer,13311364,308,210)
{
 link(onTimer,14606877:doNext,[])
}
Add(CounterEx,14606877,364,210)
{
 link(onNext,7316905:doCaption,[(408,216)(408,100)(298,100)(298,118)])
}

[About]
Version=1.0
Author=Dilma

[Type]
Class=Element
Info=Перетаскивание окна мышкой за любое место

[Methods]
doMove=Начинает операцию перетаскивания|1|
Handle=Определяет идентификатор окна, которое нужно перетащить|4|1
*onStartMove=Событие происходит при начале перетаскивания|2|
*onStopMove=Событие происходит при окончании перетаскивания|2|

unit hiMoveWindow;

interface

uses Kol,Share,Windows,Messages,Debug;

type
  THIMoveWindow = class(TDebug)
   private
   public
    _data_Handle:THI_Event;
     
    _event_onStartMove:THI_Event;  // @ andrestudio mod 26.3.2023
    _event_onStopMove:THI_Event; // @ andrestudio mod 26.3.2023

    procedure _work_doMove(var _Data:TData; Index:word);
  end;

implementation

procedure THIMoveWindow._work_doMove;
var wnd:HWND;
begin 
   _hi_onEvent(_event_onStartMove);      
   wnd := ReadInteger(_Data,_data_Handle,0);
   ReleaseCapture;
   SendMessage(wnd,WM_SYSCOMMAND, $F012, 0);
    _hi_onEvent(_event_onStopMove);
end;

end.

Add(MainForm,5043770,406,56)
{
 Point(Handle)
}
Add(PaintBox,12465343,336,84)
{
 Width=735
 Height=781
 Align=5
 Color=16777215
 WinStyle=1
 ColorSp=0
 ClearBeforeDraw=0
 Point(onMouseDown)
 link(onMouseDown,7064651:doEvent1,[])
}
Add(MoveWindow,945688,406,98)
{
 link(Handle,5043770:Handle,[])
}
Add(Hub,7064651,378,91)
{
 OutCount=3
 link(onEvent2,945688:doMove,[])
}

Add(MainForm,7316905,378,196)
{
 Point(Handle)
}
Add(PaintBox,12465343,259,231)
{
 Width=735
 Height=781
 Align=5
 Color=16777215
 WinStyle=1
 ColorSp=0
 ClearBeforeDraw=0
 Point(onMouseDown)
 link(onBeforeDraw,7349550:doDraw,[(298,237)(298,363)])
 link(onMouseDown,7064651:doEvent1,[])
}
Add(MoveWindow,945688,378,245)
{
 link(Handle,7316905:Handle,[])
}
Add(Hub,7064651,315,238)
{
 OutCount=3
 link(onEvent1,13311364:doStop,[(340,244)(340,307)])
 link(onEvent2,945688:doMove,[])
 link(onEvent3,13311364:doTimer,[(368,258)(368,300)])
}
Add(Timer,13311364,378,294)
{
 link(onTimer,14606877:doNext,[])
}
Add(CounterEx,14606877,434,294)
{
 link(onNext,12465343:doRefresh,[(496,300)(496,428)(249,428)(249,237)])
}
Add(Img_Text,7349550,427,357)
{
 X=175
 Y=70
 Font=[MS Sans Serif,50,0,0,1]
 link(Bitmap,12465343:Bitmap,[(433,348)(265,348)])
 link(Text,14606877:Count,[])
}

Add(CounterEx,9911111,224,273)
{
 Max=359
 Point(onThroughMax)
 Point(onThroughMin)
 Point(doPrev)
 Point(doStep)
 Point(doMax)
 Point(doDirect)
 link(onNext,12465343:doRefresh,[])
}
Add(MainForm,12061819,350,147)
{
 @Hint=#8:3.3.2023|
 Width=500
 Height=499
 Color=16777215
 Ctl3D=0
 Caption="Img"
 BorderStyle=0
 DragForm=0
 Point(Handle)
 Point(onKeyDown)
 link(onCreate,11240625:doColor,[])
 link(onKeyDown,3448284:doCase,[(389,174)(389,139)(298,139)(298,167)])
}
Add(Timer,4020990,154,273)
{
 Interval=33
 Point(doInterval)
 link(onTimer,9911111:doNext,[])
}
Add(WinTools,8023775,448,133)
{
 Point(doTransparentColor)
 link(Handle,9629725:Var2,[])
}
Add(SelectColor,11240625,406,161)
{
 Color=16777215
 link(onColor,8023775:doTransparentColor,[])
}
Add(MoveWindow,945688,483,308)
{
 link(Handle,9629725:Var3,[(489,124)])
}
Add(GetDataEx,9629725,448,119)
{
 Angle=3
 link(Data,12061819:Handle,[(399,124)(399,189)(356,189)])
}
Add(Case,3448284,308,161)
{
 Value=Integer(27)
 link(onTrue,12061819:doClose,[])
}
Add(PaintBox,12465343,280,273)
{
 Left=615
 Top=245
 Align=5
 Color=16777215
 ClearBeforeDraw=0
 Point(onMouseDown)
 Point(onMouseMove)
 Point(MouseX)
 link(onBeforeDraw,4757424:doDraw,[])
 link(onMouseDown,945688:doMove,[(393,286)(393,314)])
 link(onMouseMove,15574220:doCalcDelta,[(319,293)(319,328)(277,328)(277,349)])
}
Add(Img_Bmp,4757424,399,273)
{
 TransparentColor=16777215
 Point(Transform)
 link(Bitmap,12465343:Bitmap,[(405,262)(388,262)(388,317)(286,317)])
 link(SourceBitmap,359550:Bitmap,[])
 link(Transform,3452604:Transform,[(419,265)(447,265)])
}
Add(Img_UseRotate,3452604,441,217)
{
 link(Angle,9911111:Count,[(454,208)(141,208)(141,326)(230,326)])
}
Add(SampleDelta,15574220,287,343)
{
 link(onCalcDelta,9911111:doStep,[(326,349)(326,335)(214,335)(214,293)])
 link(Data,12465343:MouseX,[])
}
Add(Bitmap,359550,406,224)
{
 @Hint=#18:Вставить картинку!|
 FillColor=16777215
 AddHint(-141,10,114,13,@Hint)
}