Objekte bewegen

[sirius]

Button auf Form.

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift = [ssLeft] then
  begin
    Button1.Left:=Button1.Left-(FMouseOld.X-X);
    //Button1.Top:=Button1.Top-(FMouseOld.Y-Y);
  end;

  FMouseOld.X:=X;
  FMouseOld.Y:=Y;
end;