Drag&Drop в Delphi

[Ruska882009]

Народ привет!!!!!
Подскажите пожалуйста, как в Delphi сделать перетаскивание компонента Label или Shape, можете отправить код, или дать какую-нибудь ссылку, Заранее благодарен

[Kotofff]

Drag&Drop Label ...
Остальное по аналогии таскай

[Mont1k]

а если на форме находиться порядком много label, как код сократить?

[asmodey1]

как код сократить?

Всем лэйблам присвоить обработчики первого лэйбла...
Вообще, я бы сделал чуть-чуть по-другому:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;   
  Shift: TShiftState; X, Y: Integer);   
begin   
if Button<>mbLeft then   
move:=False else   
begin   
move:=True;   
x0:=x;   
y0:=y;   
end;   
end;   
  
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,   
  Y: Integer);   
begin   
if move then   
Label1.SetBounds(Label1.Left+x-x0,Label1.Top+y-y0,Label1.width,Label1.height);   
end;   
  
procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;   
  Shift: TShiftState; X, Y: Integer);   
begin   
move:=False;   
end;   

move, x0, y0 - глобальные переменные.

[ArtGrek]

Drag and DOCK
если разберешся, сможеш обходица почти без кода
http://programmersforum.ru/showpost....84&postcount=4