怎样设置ComboBox不能改变,不只csDropDownList

Question

ComboBox:
一年级
二年级
三年级设置了csDropDownList,还是可以选择啊比如目前是一年级 可以选择变成二年级,
怎样设置不能选择二年级,但是可以下拉,用enabled的话下拉都不能了
因为我还要个编辑按钮,要实现的功能:点了编辑按钮 这个下拉框 才可以改变的

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  combobox1.Enabled:=True;
  //继续编辑
end;

Answer 2

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ComboBox1.ItemIndex:=1;
end;一年级的ItemIndex等于1

Answer 3

这样要求有点奇怪偶
那你用edit代替combobox好了，edit后加个小按钮，按下弹出一个新的form列出所有内容好了

Answer 4

Edit+ListBox 自己组装一个吧

Answer 5

定义两个单元全局变量FFlag: Boolean, FIndex: integer，第一个FFlag用于标识你是否点击了编辑按钮，如果是，则为True，如果不是则为False
第二个FIndex初始化值为-1; 如果你在数据变更时，更改默认值时，就把它改成默认值
然后，在combobox的Enter事件中，FIndex := combobox1.itemindex;
最后，在combobox的onchange事件中，判断FFlag的，如果为否，则将combobox的itemindex的值设为FIndex
如：procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if not FFlag then
    ComboBox1.ItemIndex := FIndex;
end;

Answer 6

if combobox1.itemindex >0 then combobox1.itemindex :=0;