Timage Verschieben, wenn das BIld gross ist.

[Karstadt]

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  x_v := x; // globale variable
  y_v := y; // globale variable
  TImage(Sender).Tag := 1;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Caption := 'x '+IntToStr(x)+' Y '+IntToStr(y);
  TImage(Sender).Tag := 0;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var Maustaste: TMouseButton;
begin
  Caption := IntToStr(x)+' '+IntToStr(y);
  If TImage(Sender).Tag = 1 Then
  begin
    If y_v > y Then
      TImage(Sender).Top := TImage(Sender).Top+y-y_v
    else TImage(Sender).Top := TImage(Sender).Top+y-y_v;

    If x_v > x Then
      TImage(Sender).left := TImage(Sender).left+x-x_v
    else TImage(Sender).left := TImage(Sender).left+x-x_v;
  end;
end;

So meinte ich das...

Das Bild liegt in TScrolbox

Mein Problem ist aber... Das rukelt sehr, wenn sich die Bildkoorednaten ändern... hat jemand eine Idee?