Delphi. Перетягивание изображения

[ugagaga]

Здравствуйте. Как сделать (в delphi) что бы можно было перетягивать изображение по форме в реальном времени. Например: Я нажимаю на картинку. Не отпуская мыши перетягиваю в нужную точку(картинка следует за курсором), отпускаю кнопку мыши, картинка остается в том месте где была отжата клавиша. Все скрипты что нашел когда перетягиваешь курсор картинка не перемещается, а сразу появляется в месте где была отжата кнопка мыши!

Зарание спасибо)

[like_cloud]

на картинке в OnMouseDown ставим процедуру:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
begin
    MouseX:=X;
    MouseY:=Y;
end;

в OnMouseMove:

procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Integer);
begin
    if HiWord(GetAsyncKeyState(VK_LBUTTON)) > 0 then
    begin  
      Image1.Left:=Image1.Left+X-MouseX;
      Image1.Top:=Image1.Top+Y-MouseY;
    end;
end;

вместо Image1 - ставь то,что тебе надо двигать.
в переменных обьялвляем MouseX, MouseY: integer;

[ugagaga]

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

на картинке в OnMouseDown ставим процедуру:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
begin
    MouseX:=X;
    MouseY:=Y;
end;

в OnMouseMove:

procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Integer);
begin
    if HiWord(GetAsyncKeyState(VK_LBUTTON)) > 0 then
    begin  
      Image1.Left:=Image1.Left+X-MouseX;
      Image1.Top:=Image1.Top+Y-MouseY;
    end;
end;

вместо Image1 - ставь то,что тебе надо двигать.
в переменных обьялвляем MouseX, MouseY: integer;

Огромное Спасибо!

[like_cloud]

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

Огромное Спасибо!

не за что сам недавно нашел на етом форуме

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