Image Pos. auf Form per Mouse ändern

[Christian18]

hallo,

ich möchte die Position des Image, was ich auf meiner Form habe per Mouse ändern. das funktioniert auch schon so weit. Jetzt habe ich aber totzdem ein kleines Problem. Wenn ich auf das Image klicke und verschieben will, dann geht die mouse im image auf die position 0,0. Und jetzt meine Frage. Wie kann ich es machen, dass die Mouse da stehen bleibt, wo ich geklickt habe. Also wenn ich das Image an den Punkt 10, 10 anfasse, das die mouse dann auch bei den Punkt 10, 10 bleibt. So ich schicke einfach mal meinen Quellcode mit den ich bis jetzt schon fertig habe.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  z : Integer;

implementation

{$R *.dfm}

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

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

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if z=1 then begin
    Image1.Left:=x+Image1.Left;
    IMage1.Top:=y+Image1.Top;
  end;
end;

end.

Mit freundlichen Grüßsen

Christian18

[jim_raynor]

Die Position des Mausklicks im Bild speichern (genau wie mit z) und dann beim Verschieben immer drauf rechnen bzw. Abziehen.

[Binärbaum]

Noch ein Hinweis: Da z ja in deinem Beispiel nur die Werte 0 oder 1 annehmen kann, würde es reichen wenn z als Boolean deklariert ist. Statt 0 und 1 verwendest du dann False und True.

Delphi-Quellcode:

 ...
  z : Boolean;

implementation

{$R *.dfm}

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

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

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if z then begin
    //hier das Image verschieben
    ... 
  end;
end;

end.

MfG
Binärbaum