combobox1的下拉选项是在程序中添加的,但是怎样用向上向下箭头来移动选项呢?

[wnsr]

combobox1的下拉选项是在程序中添加的,但是怎样用向上向下箭头来移动选项呢?如果它的选项是固定的,就不用编程.即怎样用箭头实现ondropdown事件?

[光明山人]

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i: integer;
begin
// 加上这两句可以控制仅Ctrl按下的情况
// if not (ssCtrl in Shift) then
// exit;

i := ComboBox1.ItemIndex;
case Key of
VK_UP:
begin
if i>0 then
begin
ComboBox1.Items.Move(i, i-1);
end;
end;
VK_DOWN:
begin
if i<ComboBox1.Items.Count-1 then
begin
ComboBox1.Items.Move(i, i+1);
ComboBox1.ItemIndex := i;
end;
end;
end;
end;

[光明山人]

可能误解楼主的意思，楼主的意思好象是按向下键则下拉列表？

combobox1.AutoDropDown = true 即可。