Вопрос по ComboBox

← →
zolotov (2003-03-08 19:48) [0]

Ув. Мастера, подскажите, пожалуйста, как сделать, чтобы по нажатию клавиши Enter выпадал список Combobox.

Заранее спасибо.

← →
мыш (2003-03-08 19:50) [1]

Да на этой же странице есть вопрос Как заставить выпасть меню FilterComboBox...?
Смотри там.

← →
zolotov (2003-03-08 20:02) [2]

Спасибо большое

← →
zolotov (2003-03-08 20:36) [3]

Не знаю, как для FilterComboBox, а для ComboBox такой код не годится.
SendMessage(ComboBox1.Handle,WM_LBUTTONDOWN,ComboBox1.Left+1,ComboBox1.Top+1);
И при нажатии на Enter ничего не происходит. Я прописывал в событии и OnKeyDown, и OnKeyPress.
Может я что-то не то делаю?

← →
Романов Р.В. © (2003-03-08 20:58) [4]

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key) = VK_Return then
begin
ComboBox1.DroppedDown := not ComboBox1.DroppedDown;
Key := #0;
end;
end;

CB_SHOWDROPDOWN

← →
Мыш (2003-03-09 07:49) [6]

Что значит "не годится". Ведь это абсолютный аналог, как если бы ты кликнул мышью по комбобоксу в левый верхий угол. У тебя combobox имеет стиль csDropDown верно? ну так попробуй мышкой тыкнуть в левый верхний угол, в точку 1,1 - список не выпал, потому что ты попал по белому полю и вошел в редактирование.
Выхода два: либо меняй стиль combobox на csDropDownList, либо меняй координаты клика в сообщении, чтобы попасть по треугольничку.

Вопрос по ComboBox Найти похожие ветки