thunder2Да всё бы хорошо, но квадратиков (в углах и по сторонам) не будет видно, а хочется.
Вместо квадратиков можно просто менять икноку указателя мыши, когда она оказывается в нужной области. В данном случае, рядом с границей объекта.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
*Метод MouseLeave нужного объекта
If nButton = 0 && Кнопки мыши не нажаты
Local lnDelta
lnDelta = 2 && Как правило, это ширина рамки объекта
Do case
Case Between(nXCoord,this.Left-lnDelta,this.Left+lnDelta) ;
or Between(nXCoord,this.Left+this.Width-lnDelta,this.Left+this.Width+lnDelta)
this.MousePointer = 9 && горизонтальные стрелки
Case Between(nYCoord,this.Top-lnDelta,this.Top+lnDelta) ;
or Between(nYCoord,this.Top+this.Height-lnDelta,this.Top+this.Height+lnDelta)
this.MousePointer = 7 && вертикальные стрелки
Otherwise
this.MousePointer = 0
endcase
EndIf
Собственно, по значению MousePointer можно определять, что будет делать метод Drag-and-Drop. Если 0, то перемещать, если отлично от 0, то изменять размер
