Ответ поздновато, но может кому пригодится.
Убить прокрутку колеса в комбобоксе можно, но хитрым способом.
Создаете класс-"обертку" от комбобокса:
Код:
THackComboBox = class(TComboBox)
private
procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;
end;
implementation
procedure THackComboBox.CMMouseWheel(var Message: TCMMouseWheel);
begin
// Убиваем прокрутку колеса мыши для комбобокса
// (т.е., никакие сообщение от колеса не обрабатывается)
end;
В форме, где находится ваш комбобокс надо записать следующее:
Код:
procedure TFrmMain.FormCreate(Sender: TObject);
begin
PPointer(ComboBox1)^ := THackComboBox;
end