Drag and drop. Как????

[Ky3Heu,]

Есть на форме компонентTImage с картинкой. Прога запущена. Как мне мышой эту картинку (TImage) перетащить в другое место формы в ран-тайме??? Никогда с этим не сталкивался.....

[Ntlegend]

обрабатуй события нажатия, движения и отпускания мыши.. введи флаг нажатия клавиши и начальных координат мыши.. и получи чтото типа такого кода:

var
  fl:boolean = false;
  oldX, oldY:integer;
**********************
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
fl   := True;
oldX := X;
oldY := Y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if not fl then exit;
Image1.Left := oldX - X;
Image1.Top  := oldY - Y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
fl   := False;
end;

[Kotofff]

Пользуемся поиском не в инете так на форуме ...
http://www.programmersforum.ru/showt...E2%E0%ED%E8%E5