Panel mit der maus bewegen(c++)

[Wheelie]

Für Delphi:

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var Punkt: TPoint;
begin
  if ssLeft in Shift then
  begin
    GetCursorPos(Punkt);
    Panel1.Top := Punkt.y - Top - Panel1.Height div 2;
    Panel1.Left := Punkt.x - Left - Panel1.Width div 2;
  end;
end;