[Demonuka]

Есть форма (Form1), на ней панель (Panel1), на панели картинка, загруженная в имэйдж (Image1). Задача- таскать имэйдж по панели. Для этого пересчитываю координаты имэйджа:

Код:

procedure TForm1.ImMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
Po:TPoint;
begin
if dvig=true then begin
Po:=ClientToParent(point(x,y));
  Im[i].Left:=Po.X;
  Im[i].Top:=Po.Y;
  end;
end;

И не работает...

[Demonuka]

Сори за неточность....имэйдж не Image1, а Im[i].

[Pyro]

можно так

PHP код:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Po:TPoint;
  who: TImage;
begin
  who := (Sender as TImage);

  if who.Tag <> 1 then Exit;

//  Po:= (Sender as TImage).ClientToParent(point(x,y));
  Po := who.Parent.ScreenToClient(who.ClientToScreen(point(x,y)));

  who.Left:=Po.X - who.Width div 2;
  who.Top:=Po.Y - who.Height div 2;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TImage).Tag := 1;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TImage).Tag := 0;
end; 


[Lucky192]

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

Есть форма (Form1), на ней панель (Panel1), на панели картинка, загруженная в имэйдж (Image1). Задача- таскать имэйдж по панели. Для этого пересчитываю координаты имэйджа:
И не работает...

И правильно что не работает. Координаты получаете в системе Form1 и вызываете TForm1.ClientToParent. Т.е. переводите их в систему родителя Form1. А нужно в систему Panel1.

В таких случаях лучше вызывать сначала Form1.ClientToScreen, а затем Image1.Parent.ScreenToClient. И получите координаты в системе родителя Image1, что и нужно...

[Demonuka]

Спасибо, Pyro..)) Ты крут..)) И тебе Lucky...Ты тоже прав..))