TPanel hin und her schieben...

[sakura]

Im OnMouseDown Ereignis einfach den folgenden Code einfügen

Delphi-Quellcode:

procedure TfrmTopBar.Panel1OnMouseDown(
  Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer
);
begin
  if Button = mbLeft then
  begin
    ReleaseCapture;
    TPanel(Sender).Perform(WM_SYSCOMMAND, $F012, 0);
  end;
end;