Перемещение TImage

[LexaBeliy]

Мужики, помогите. Я в Delphi новичёк. У меня стоит Delphi 7.
Мне нужно, чтобы кликнув мышью по картинке, она (картинка) переместилась в другое место. В интернете искал, так толком ничего полезного не нашёл. Кто знает, объясните поподробнее.

[uberchel]

Можно так:

var
  Form1: TForm1;
  MouseDownSpot : TPoint;
  Capturing : bool;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 DoubleBuffered:= True;
end;

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

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 	if Capturing then
	begin
		Image1.Left := Image1.Left - (MouseDownSpot.x - x);
		Image1.Top :=  Image1.Top - (MouseDownSpot.y - y);
	end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 	if Capturing then
	begin
		Capturing := false;
		Image1.Left := Image1.Left - (MouseDownSpot.x - x);
		Image1.Top := Image1.Top - (MouseDownSpot.y - y);
	end;
end;

[LexaBeliy]

Большое спасибо!!! Сейчас попробую.

[LexaBeliy]

Это получается, что рисунок перемещается мышью.
Но мне нужно переместить просто одним кликом, т.е. нажал, и рисунок сам плавно переместится в нужное место.

[DomiNick]

А откуда вы берёте координаты этого "нужного места"?

[spamer]

LexaBeliy вот держи. Как то в инете нашел.

[spamer]

з.ы. DomiNick, никогда особо не обращал внимания на вашу подпись. Прикольно

[LexaBeliy]

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

LexaBeliy вот держи. Как то в инете нашел.

Спасибо за помощь! То что нужно!!!

[Rebel123]

Ну вот тебе примерчик.........

То есть тебе нужно так: На клике по Картинке чтоб Она переместилась!
Вот тебе код:

procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Left:=50 // (но за место цифры 50, можешь поставить любую по желанию, то есть смотри на свойство твоей картинки а именно на свойтсо Left и там уже определяй сколько тебе нужно поставить)
Image1.Top:=50 // (так же определяешь нужное тебе расположение картинки)
end;

[DeKot]

procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Left:=50 // (но за место цифры 50, можешь поставить любую по желанию, то есть смотри на свойство твоей картинки а именно на свойтсо Left и там уже определяй сколько тебе нужно поставить)
Image1.Top:=50 // (так же определяешь нужное тебе расположение картинки)
end;

При таком коде Image будет всегда находиться в одном и том же месте.
Корректнее в том же обработчике:

Form1.Image1.Left:= Form1.Image1.Left + dx // dx -приращение изменения координат Image по горизонт.
Form1.Image1.Top:= Form1.Image1.Top + dy // dy -приращение изменения координат Image по вертик..

А лучший алгоритм - это когда по первому клику выделяется необходимый Image,
а по второму , если на том же Image - снимается выделение;
если не на Image , то указывает новые координаты.
Так можно обрабатывать несколько Image.