Problem beom Bewegen der Image. man sieht Streifen

[mr_emre_d]

Zitat von thomas2009:

Hallo
...

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
Image1.Left:=Mouse.CursorPos.X-left - x;
Image1.Top:= Mouse.CursorPos.Y-top - y;

...
_

Ich frage mich gerade, ob sich das Bild auch wirklich bewegt

probier es mal mit folgendem Code im Mousemove Event des Forms :

Code:

Image1.Left:=ScreenToClient( Mouse.CursorPos ).X;
Image1.Top:= ScreenToClient( Mouse.CursorPos ).Y;