Mehrer objekte gleichzeig verschieben auf einer Paintbox

[mimi]

habe den fehler gefunden hier mein code:

Delphi-Quellcode:

  if objlist.itemindex > -1 then begin
    if ssCtrl in Shift then begin
      TPaint2Obj(objList.objList[objlist.itemindex]).Size:=Point(x-mx,y-my);
      objList.DrawObj;
    end
    else begin
      if ssleft in Shift then begin
                        dx:=x-oldpos.x;
                  dy:=Y-oldpos.y;

        for i:=0 to objlist.objList.Count-1 do begin
          if (TPaint2Obj(objList.objList[i]).Sel = true)  then begin
            with TPaint2Obj(objList.objList[i]) do begin
              if objlist.ItemIndex <>  i then begin
                caption:=IntTostr(dx) + '\' + IntTostr(dY);
                position:=Point(dx+position.x,dy+position.y);
              end
              else
                Position:=Point(X,Y);

              objList.DrawObj;
            end;
          end;
        end;
      end;
//      objList.DrawObj;
    end;

  end;
                 oldpos.x:=x;
                oldpos.y:=y;

schuld war dran das über der foschleife noch was stand.... und das die differtanz in der schleife berechnet wurde ist !

vielen dank für diesen hilfreichen tipp !