Dock-инг TGroupBox внутри Tpanel

[Квэнди]

Идея в следующем:
тестовая форма содержит панель с Align alclient
На этой панели находится пара GroupBox с каким- то содержимым
Цель:
Перемещать внутри Tpanel эти GroupBox-ы свободно, но не "пуская за пределы". ВОщем- то пределы пока не столь важны. Как правильн сделать чтобы GroupBox-ы свободно перемешались по панели с помощью докинга?
Попробовал так:

object pnl1: TPanel
.....
DockSite = True
DragMode = dmAutomatic
....
object grp1: TGroupBox
.....
DragKind = dkDock
DragMode = dmAutomatic
.....

Но как только grp1 "отцепляется" от поверхности, он сразу же полностью заполняет Panel.

[SERG1980]

Есть один пример может подойдёт

[Квэнди]

Хотелось именно с докингом
без него и так не сложно сделать и без таких извратов

var
  Form6: TForm6;
  msx,msy:Integer;
implementation

{$R *.dfm}

procedure TForm6.grp1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
msx:=x;
msy:=y;
end;

procedure TForm6.grp1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if ssLeft in Shift then
	begin
	  grp1.Left:=grp1.Left+(x-msx);
    grp1.Top:=grp1.Top+(y-msy);
    grp1.Repaint;
  end;
end;

[Stilet]

чтобы GroupBox-ы свободно перемешались по панели с помощью докинга?

А механизм докинга очень важен? Может проще просто перемещать и во время перемещения проверять выходы за пределы?

Порой в сторону метода Dock:

procedure TForm1.GroupBox1EndDock(Sender, Target: TObject; X, Y: Integer);
var p:TPoint;
begin
  TGroupBox(sender).Dock(Panel1,TGroupBox(sender).ClientRect);
  p.X:=x;p.Y:=y;
  p:=Panel1.ScreenToClient(p);
  TGroupBox(sender).Left:=p.X;
  TGroupBox(sender).top:=p.y;
end;

Это вернет назад то что таскал. Только код требует поправки. Там с координатами мелкий баг

[Квэнди]

Цель была попутно с докингом разобраться =) Докинг между панелями понятен и рабтает более менее нормально (хотя четкое ощущений "грабель" не покидает) А вот с докингом внутри одной панели как-то не понятно

[mutabor]

Возможно это просто недоработано, между панелями отладили, а тут руки не дошли, там ведь тоже живые люди работают. Чем головой пробивать стену, так проще свой докинг в этом случае реализовать.

[Квэнди]

Ну собственно в выходные решил культурно разобраться, у марко кенту написано что докинг возможен только у align-компоннтов, т.е. если мы хотим "докить" компонент, у него должен быть какой- нибудь align, т.е. докинг внутри одной панели возможен, если она заполнена компонентами, у которых выставлен align. Вобщем отказался я от этой идеи и сделал по- свойму. Все- таки докинг очень сильно попахивает костылями=)