ich habe die Funktion getestet
OK aber das Objekt soll beim verschieben nicht die die Client-Grenzen überschreitten
Delphi-Quellcode:
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MoveControl(Sender,Button,Shift,X,Y);
end;