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;

 

posted @ 2016-08-31 11:00  海蓝7  阅读(241)  评论(0编辑  收藏  举报