怎样在ScrollBox中进行label的拖放操作并取得label的座标值

Question

我在scrollbox中放置label,怎么来进行label的拖放操作并取得label的座标值呢？？？？？

Answer 1

先给你一个不专业的方法：用TPanel代替TLabel，然后
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Panel1.Perform(WM_SYSCOMMAND,$f012,0);
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Panel1.Caption:= 'X: '+inttostr(Panel1.Left)+' Y: '+inttostr(Panel1.Top);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval:= 100;
  Timer1.Enabled:= true;
  Panel1.BevelOuter:= bvNone;
end;