Перетаскивание объекта по форме

king555-55

Здравствуйте! Требуется реализовать динамическое создание объекта с возможностью менять его положение (вроде как создать ярлык на раб столе и потом его таскать зажав мышку). Юзер нажал ПКМ, выбрал создать, появился объект квадратной формы (вот тут что лучше? баттон либо что еще?), наведя и зажав мышку юзер мог бы таскать этот объект по форме или скрол боксу. С динам. созданием ничего сложного, но какой объект лучше создавать и как реализовать его перетягивание?
1 ответ

king555-55

Назначить динамически созданной панельке вот такой обработчик OnMouseDown:
procedure TForm1.MyMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  (Sender as TPanel).Perform(WM_SysCommand, SC_DragMove, 0);
end;
, и посмотреть что будет...