Komponenten während der Laufzeit verschieben

[DeddyH]

Geht es um alle Panels auf dem Formular?

[edit] Falls ja, versuch es mal hiermit:

Delphi-Quellcode:

type
  TPanel = class(ExtCtrls.TPanel)
  protected
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
  end;
 
  TDeinForm = class(TForm)
    ...
  end;

...

procedure TPanel.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  if ssLeft in Shift then
    begin
      ReleaseCapture;
      Perform(WM_SYSCOMMAND, $F012, 0);
    end;
end;

Das geht auch mit anderen Komponenten, solange sie von TWinControl abstammen. [/edit]