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;