Реализация Drag and DOCK

[ArtGrek]

для программы нужно:
2 скролбокса и на них по 1 панел, хочу чтоб при ператаскивании панел менялись местами,
а если просто кликнуть по панельке и не преренести, что б она оставалась в скроле,
а не вылазила, тоесть как бы отмена деиствия

но ето не все , прошу объяснить весь процесс, для реализации в ручном режиме,
вернее то что я сам разобрать не смог после прочтения
http://www.delphisources.ru/pages/fa...interface.html
а в программе я реализую

//
procedure TForm1.Panel1StartDock(Sender: TObject;
  var DragObject: TDragDockObject);
begin
//Sender - переносимый объект
//DragObject - специальный объект, создаваемый на время процесса переноса и содержащий его свойства - док
end;

//
procedure TForm1.Panel1EndDock(Sender, Target: TObject; X, Y: Integer);
begin
//Sender - переносимый объект
//Target - объект - док
end;

// Как только пользователь нажал кнопку мыши над переносимым компонентом и начал сдвигать его с места
procedure TForm1.Panel1GetSiteInfo(Sender: TObject; DockClient: TControl;
  var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);
begin
//Sender - объект - док
//Dockclient - переносимый объект
//InfluenceRect - предоставляемый доком прямоугольник
//MousePos - где находица перетаскиваемыи объект
//CanDock - принимает ли док компонент
end;

// происходит при перемещении перетаскиваемого компонента над доком
procedure TForm1.Panel1DockOver(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
 //Sender - 
 //Source -
 //State -
 //Accept -
end;

// происходит в момент отпускания компонента над доком
procedure TForm1.Panel1DockDrop(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer);
begin
 //Sender - 
 //Source -
end;

// сигнализирует об уходе компонента с дока и происходит в момент его "приземления" в другом месте
procedure TForm1.Panel1UnDock(Sender: TObject; Client: TControl;
  NewTarget: TWinControl; var Allow: Boolean);
begin
 //Sender -
 //Client -
 //NewTarget -
 //Allow -
end;

вопросы
1. кто( перетаскиваемыи объект и объект приемник) и в какои последовательности вызывает все ети события ?
2. что означают параметры в етих событиях ?

PS. знаю что запросы большие, но кто чем может, я по ходу на практике разбираю

[asmodey1]

А если в хэлпе посмотреть "drag-and-drop" ?
Там и примеры приведены.
Опять же Delphi\Demos\Docking

[ArtGrek]

Сообщение от asmodey1

А если в хэлпе посмотреть "drag-and-drop" ?
Там и примеры приведены.
Опять же Delphi\Demos\Docking

к сожалению много пользы не принесло

я начал двигать елементы которые не могут принимать компоненты(картинки),
и у них из етого всего есть только 2 события, получаеца в процессе перетаскивания,
все остальное происходит на компонентах приемниках?

[Sibedir]

Вот, тоже недавно баловался с Drag&Dock. Думал, доведу до ума выложу, но, видно, несудьба. Так что не судите строго.