Image Pos. auf Form per Mouse ändern

[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