//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;