Panel proportional zu Mauszeiger bewegen

[DeddyH]

Geht es nur um das Verschieben eines Panels zur Laufzeit? Wenn ich mich recht entsinne, geht das so:

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
    begin
      ReleaseCapture;
      Panel1.Perform(WM_SYSCOMMAND,$F012,0);
    end;
end;