перемещение компонента по форме

[blackstersl]

Всем привет, вопрос: есть image1 и нужно сделать так чтоб перемещать компонент по форме, то есть когда onmousedown тогда
clicked = true ...
begin
перемещение компонента по форме(только по ОСИ "Х")
end;
а когда отпустишь мышь то image1 на том месте где мы его оставили. Вот и весь вопрос. Спасибо.

[Kotofff]

http://programmersforum.ru/showthread.php?t=37893
http://programmersforum.ru/showthread.php?t=2357

[blackstersl]

нет не подходит! мне без dra&drop если можно -)

[Volt]

можно так

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Left:=mouse.CursorPos.X-Form1.Left-round(Image1.Width/2);
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
timer1.Enabled:=true;
end;

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

[blackstersl]

Спасибо volt у сам эту сточку думал(image1.Left:=mouse.CursorPos. X-Form1.Left-round(Image1.Width/2), но неправильно записал и оставил этот вариант.