Komponente verschieben

[barf00s]

im Panel.OnMouseMove

Delphi-Quellcode:

procedure Dings.MouseMove();
begin
  if Shift = [ssLeft] then begin // wenn man mit der linkenmaustaste "dragged" ... und die abfrage der "maustasten" ist unbedingt erforderlich, da es sonst probleme mit  
win9x gibt
    ReleaseCapture;
    SendMessage(DeinPanel.Handle, WM_NCLBUTTONDOWN, 2, 0);
  end;
end;