Komponenten während der Laufzeit verschieben

[Progman]

Meine Anmerkung bezog sich auf den Original-Code aus dem Link:

Delphi-Quellcode:

procedure TForm1.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if FDragging then
    with Sender as TControl do
    begin
      Left := X - FDownX + Left;
      Top  := Y - FDownY + Top;
      //in etwa: if (Left=20 and Top>20) then.....
    end;
end;