Combobox

← →
begemot (2003-09-07 22:39) [0]

Господа если возможность прокрутить открытый
список с помощью клавиатуры причём чтобы в самом
окне ComboBox.Text не менялся таким же образом
как будто по открытому списку перемещается мышь,
а то если поработать клавишами и нажать Esc
в окне происходит смена Item.

← →
Song (2003-09-07 22:57) [1]

keybd_event()
TComboBox.ItemIndex

← →
begemot (2003-09-10 12:43) [2]

begemot > Song

Если можно то поподробнее. Есть событие

procedure TfmBoss.cbComboBoxKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
//Чтобы не было прокрутки клавишами
if (Key = VK_PRIOR) or (Key = VK_NEXT) or
(Key = VK_END) or (Key = VK_HOME) or
(Key = VK_LEFT) or (Key = VK_RIGHT) then
Key:= VK_SPACE;
//Открываем список
if ((Key = VK_DOWN) or (Key = VK_UP)) and
(not cbComboBox.DroppedDown) then
begin
//Чтобы не было прокрутки
Key:= VK_SPACE;
//Открываем
cbSpisokBox.DroppedDown:= true;
//Можно послать сообщение
//SendMessage(cbSpisokbox.Handle,CB_SHOWDROPDOWN,1,0);
end;
//Список открыт
if ((Key = VK_DOWN) or (Key = VK_UP)) and
(cbComboBox.DroppedDown) then
begin
//И вот здесь пробывал менять cbCombo.ItemIndex
//ничего не получается
end;
end;

Combobox Найти похожие ветки