引言: 試試 TSpinEdit.Increment := 0; -- hagar.

  SpinEdit1.Button.OnUpClick:=nil;
  SpinEdit1.Button.OnDownClick:=nil;

  TSpinEdit = Class(Spin.TSpinEdit)
  Protected
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  end;
  TForm1 = class(TForm)
  ....    procedure TSpinEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin
  Case Key of
    VK_UP,VK_DOWN :Key := 0;
  end;
  inherited KeyDown(Key, Shift);
end;

  if (ActiveControl is TSpinEdit) and
     ((Key = VK_UP) or (Key = VK_DOWN)) then
    Key := 0;