Текущий архив: 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
