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