Komponenten während der Laufzeit verschieben

[tofse]

Wird das bei Dir aufgerufen ?

Zitat von roga:

Code:

procedure OnMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if FDragging then
  begin
    ...
  end;
end;