Panel mit der maus bewegen(c++)

[Wheelie]

Zitat von taza:

Geht es auch noch ohne, das man das Panel anklicken muss, dh es automatisch mit der Maus mitgeht??

Kein Problem:

Delphi-Quellcode:

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

Und optional (Panel folgt der Maus damit ständig) ...

Delphi-Quellcode:

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