"Flimmern" bei verschieben in OnMouseMove

[SirThornberry]

wenn du "left :=" oder "top :=" aufrufst wird intern nix anderes gemacht als "Setbounds" aufgerufen.
Das heißt bei dir wird intern 2 mal setbounds aufgerufen. Ändere es am besten so ab

Delphi-Quellcode:

  if Sender is TmrPRLabel then
  begin
    if Maus and (((Sender as TmrPRLabel).Top <> x) or ((Sender as TmrPRLabel).Left <> y)) then
    begin
      (Sender as TmrPRLabel).SetBounds(x,y,(Sender as TmrPRLabel).width, (Sender as TmrPRLabel).height);
    end;
  end;