//cbb1: TComboBox; 指定某一行，不给下拉，自读伪装 实现；

  cbb1.Style :=csSimple; //设定style 不可以下拉

   cbb1.ItemIndex := ; //指定某一行，

   daf :=cbb1.Text;  //取值

  procedure TForm9.cbb1Change(Sender: TObject); //重点 当值改变时，重新赋值回去；

  begin

    cbb1.Text :=daf;

  end;

个：其实就是固定一行，不给值变化  

-------------------------

  //拓：网上说发  不妥

  procedure TForm9.cbb1KeyPress(Sender: TObject; var Key: Char);

begin

  Key :=#;  //这样是又问题的，  #0表示del键，若text被选择的情况下，按下 del键 文本内容就被删除了

end;