TComboBox; 指定某一行，不给下拉，只读ReadOnly 伪装 实现

  //cbb1: TComboBox; 指定某一行，不给下拉，自读伪装 实现；
  cbb1.Style :=csSimple; //设定style 不可以下拉
   cbb1.ItemIndex := 3; //指定某一行，
   daf :=cbb1.Text;  //取值
  procedure TForm9.cbb1Change(Sender: TObject); //重点 当值改变时，重新赋值回去；
  begin
    cbb1.Text :=daf;
  end;
个：其实就是固定一行，不给值变化  

-------------------------
  //拓：网上说发  不妥
  procedure TForm9.cbb1KeyPress(Sender: TObject; var Key: Char);
begin
  Key :=#0;  //这样是又问题的，  #0表示del键，若text被选择的情况下，按下 del键 文本内容就被删除了
end;