Panel 拖動

procedure TFormMain.pnlEntryFieldMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

var

  SC_MANIPULATE: Word;

begin

  if gMovingEntryPanel then begin

    SC_MANIPULATE := $F009;

    ReleaseCapture;

    grdpnl1.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);

  end;

end;