Drag&Dock

← →
Axis_of_Evil © (2003-07-18 10:53) [0]

Итак, хотим subj.
Кидаем на форму TBitBtn, задаем свойства
Form:
DockSite = True
DragKind = dkDock
DragMode = dmAutomatic
BitBtn:
DragKind = dkDock
DragMode = dmAutomatic

При перетаскивании BitbBtn через раз оказывается
отделенной от формы (в клиентской части формы)

Вроде бы логичное решение:

procedure TForm1.BitBtn1EndDock(Sender, Target: TObject; X, Y: Integer); var Tp: TPoint; Tr: TRect; begin Tp := Point(X, Y); GetWindowRect(BitBtn1.Handle, Tr); Tp.X := Tr.Left; Tp.Y := Tr.Top; Windows.ScreenToClient(Form1.Handle, Tp); BitBtn1.Dock(Form1, Rect(Tp.X, Tp.Y, Tp.X + BitBtn1.Width, Tp.Y + BitBtn1.Height)); end;

По идее кнопка должна перетаскиваться "правильно",
т.е как обычным Drag&Dock"ом, но при каждом перетаскивании
она смещается относительно курсора.

1)Как ПРАВИЛЬНО реализовать Drag&Dock?
2)Где ошибка в моем варианте?

← →
Axis_of_Evil © (2003-07-18 10:54) [1]

>она смещается относительно курсора.
вниз

Drag&Dock Найти похожие ветки