как курсором перетаскивать image

[Олександр17]

Помогите.
Как у delphi 7 сделать так чтобы пры запуске програмы image было бы возможно перетаскивать гладко курсором мыши??????7Заранэ спс.

[_Dmitry]

Самое простое: поместите Image на Panel, Enabled у Image поставьте false, и

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TPanel).BringToFront;
  ReleaseCapture;
  (Sender as TPanel).perform(WM_SysCommand,$F012,0);
end;

[mihali4]

Или чуть по-другому, чтобы не обижать картинку дизэйблом

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Sender:=Image1.Parent;
(Sender as TPanel).perform(WM_SysCommand,$F012,0);
end;

[Олександр17]

Спасибо большое!!!
все получилось...

[Олександр17]

Как в етом случаи отслеживать координати курсора???

[Beermonza]

В uses библиотеку Controls написать, в любой процедуре можно поймать координаты курсора так:

  Mouse.CursorPos.X
  Mouse.CursorPos.Y

...или если в процедуре возвращаются коортинаты X и Y.

[Олександр17]

Окей! СПС большое...