combobox.itemindex=5; //你要的条目。
解决方案 »
- SOS!如何从快捷方式中读取到这个可执行文件的“长文件名”
- 请问大家winsock编程时,使用的是delphi带的组件还是直接操作windows api?
- AV错误,关于过程外部变量和DLL
- 在delphi中的以一个字符为分隔符的函数是什么?
- 如何改变打印机的默认属性?
- vb调用delphi的dll问题啊
- 关于RzPageControl的问题:当鼠标放到其中一个TabSheet上,还未选中的标签页,那么如何让关闭的叉叉自动显示出来啊?
- try..except 语句可以捕获其它线程中的错误吗?
- 关于窗口的问题?一定给分!
- 如何给新人一个机会?大家都来看看啊。
- 查詢問題?
- 求助于API高手:更改菜单颜色的API函数???(急)
ComboBox.ItemIndex:=2;
ComboBox.ItemIndex:=2;
ComboBox.ItemIndex:=0;
从0到combobox.items.count-1都可以。
begin
ComboBox1.DroppedDown:=True;
ComboBox1.ItemIndex:=0;end;
在combobox的Onkeyup事件:
procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
I: Integer;
begin
for I := 0 to ComboBox1.Items.Count - 1 do
if Chr(Key) = UpperCase(ComboBox1.Items[I][1]) then
begin
ComboBox1.ItemIndex := I;
Break;
end;
end;