Текущий архив: 2003.07.31;
Скачать: CL | DM;

Вниз

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]

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

---

← →
Axis_of_Evil ©   (2003-07-18 13:33) [2]

^

---

Страницы: 1 вся ветка

Текущий архив: 2003.07.31;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c