我用DBComboBox的style 设置为csDropDownList,入库查询后,可以在下拉框中选择要的内容。但是能手动输入。
style设置为csDropDown:只可以输入英文,不能输入中文。这时候还不能进行下拉框的选择?如何才能同时实现,既可以输入内容,又可以选择这时候的下拉内容呢?代码如下,请教大家。
procedure TForm1.DBComboBox1Enter(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT DISTINCT col1 FROM t;');
open;
DBComboBox1.Items.Clear;
First;
while not Eof do
begin
if length(trim(Fields[0].AsString)) > 0 then
DBComboBox1.Items.Add(Fields[0].AsString);
Next;
end;
end;
end;
style设置为csDropDown:只可以输入英文,不能输入中文。这时候还不能进行下拉框的选择?如何才能同时实现,既可以输入内容,又可以选择这时候的下拉内容呢?代码如下,请教大家。
procedure TForm1.DBComboBox1Enter(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT DISTINCT col1 FROM t;');
open;
DBComboBox1.Items.Clear;
First;
while not Eof do
begin
if length(trim(Fields[0].AsString)) > 0 then
DBComboBox1.Items.Add(Fields[0].AsString);
Next;
end;
end;
end;
解决方案 »
- PB调用delphi的dll问题,在循环中调用2次没有问题,第三次就直接将程序挂掉.
- vclskin对MDI窗体最大化后,子窗体在菜单右边的最大,最小,关闭按钮显示错误?
- 在delphi中调用c api的一个类型转换问题([char ***] to [delphi type])
- 运行其它Exe,如何设置其它Exe的起始位置
- 请问OpenDialog控件怎么使用
- XMLDocument中,这样对一个节点进行修改、删除等操作呢?
- 在Edit中输入用逗号隔开的字符,最后一个也有逗号,怎么判断输入格式是否正确?
- delphi+ImageEn
- TreeView中,失去焦点后如何标示失去焦点之前被选中的item?
- 送分!!!如何把数值字符串"3433433"格式化为"3,433433.00"类型的字符串?
- 呵呵,晕啊,我领导要一个对比照片的程序,要把一堆照片里的相同照片找出来(不同文件名的,而且有几千张)!!!
- fastreport中如何用一个frreport1载入两个不同格式的报表
而且我用多个输入法,都不能输入中文。只能输入下拉框内有的英文内容。不晓得哪里弄错了