TImage per Maus bewegen

[DerFree]

Hi, ich würde gerne wissen wie ich ein Image richtig mit der Maus bewegen kann... das was ich bis jetzt selber versucht habe geht nicht so wirklich.

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if move= true then
begin
Image1.Left:= X;
Image1.Top:= Y;
 end;
end;

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

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

Danke für eure Hilfe

[turboPASCAL]

Ohne grosse Umrechnungen der Mausposition usw. geht es in dem man ein Panel benutzt.
Also, lege ein Panel auf die Form und in dieses kommt ein Image. Beim Panel noch AutoSize auf True stellen.

Delphi-Quellcode:

const
  SC_DRAGMOVE = $F012;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True; // wird das Flackern nicht 100% beseitigen aber verbessern
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift = [ssLeft] then // ist linke Maustaste gedrücht, dann...
  begin
    ReleaseCapture; // "Maus an akt. Form binden"
    Panel1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);  // Panel verschieben
  end;
end;

[s.h.a.r.k]

Hey...

Guckst du hier :wink: Hab doch gewusst letztens was bei den Schweizern gelesen zu haben...

Außerdem wäre das hier vielleicht noch allgemeine recht interessant - bin ich auch erst gerade drauf gestoßen -> Link

mfg shark

[Jelly]

:thumb: Genial...
Ich schlag mal vor, ab mit dem Code in die Codelib...

[DerFree]

Ich kann mich Jelly nur anschließen.

Genial :thumb:

[s.h.a.r.k]

Zitat:

Zitat von Jelly

:thumb: Genial...
Ich schlag mal vor, ab mit dem Code in die Codelib...

Darf ich frage wen ihr da meint?!?

[Jelly]

Beide Codes sind CodeLib reif, Deiner und der von Matti.