Objekte bewegen

[-remit-]

Ah Ok, darin liegt das Problem danke!

Edit: Das ganze lässt sich damit umgehen:

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  sleep(1);
  if (Shift = [ssLeft]) and (x <> lastpx) then
    begin
      if isright(x) then
        Button1.Left:=Button1.Left+1
      else
        Button1.Left:=Button1.Left-1;
    end;
end;

wichtig die Ergänzung and (x <> lastpx) jetzt funktioniert es so wie ich es möchte...