timage nesnesini sürükleme

[osman_simsek]

runtime da timage nesnesini mouse ile sürüklemek istiyorum.
mantık olarak perform işe yarayacak gibi ama, malesef edit, ve form sürükler gibi perform kullanmaya çalıştığımda resmin yerini değiştiremiyorum.

çözüm olarak ne önerirsiniz ?

[sabanakman]

Kod: Tümünü seç

var imgSol,imgUst:Integer;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbleft then begin
    imgSol:=X;
    imgUst:=Y;
  end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then begin
    Image1.Left:=Image1.Left+(X-imgSol);
    Image1.Top:=Image1.Top+(Y-imgUst);
  end;
end;

[osman_simsek]

teşekkür ederim, halloldu

[Battosai]

image i panel içine koyup kodu panele göre yazsaydın klasik yöntemde çalışırdı.

[sabanakman]

image i panel içine koyup kodu panele göre yazsaydın klasik yöntemde çalışırdı.

Geç gelen adalet adalet değildir.