在TComboBox中禁用鼠标轮和键盘事件

Question

当我使用TComboBox时，用户可以通过单击控件并使用鼠标选择和项目来选择项目，或者他们可以在控件上悬停并使用滚动轮，或者在选择该控件时使用键盘。

如何禁用鼠标、车轮和键盘事件，以便用户在需要更改值时总是必须单击控件？我想防止他们偶然地改变价值。如果这在TComboBox中是不可能的，我还可以使用其他的组合框控件吗？

对于按键，我尝试在KeyDown事件上禁用组合框，但是选择仍然改变。TComboBox似乎没有鼠标轮事件。

Answer 1

您可以对ComboBox的WindowProc属性进行子类，以拦截和丢弃滚动和键盘窗口消息：

private:
    TWndMethod PreviousWndProc;

__fastcall TMyForm::TMyForm(TComponent *Owner)
{
    PreviousWndProc = ComboBox1->WindowProc;
    ComboBox1->WindowProc = &ComboBoxWndProc;
}

void __fastcall TMyForm::ComboBoxWndProc(TMessage &Message)
{
    if (
        ((Message.Msg < WM_KEYFIRST) || (Message.Msg > WM_KEYLAST))
        && (Message.Msg != WM_MOUSEWHEEL)
        )
    {
        PreviousWndProc(Message);
    }
}

Answer 2

更改值要求组合框具有焦点。因此，一个可能的解决方法是删除CloseUp事件处理程序中的焦点，在用户选择了一个值之后调用它。但是，这并不能完全禁用事件。用户仍然可以使用选项卡键选择控件，并以这种方式获得焦点。

要删除CloseUp处理程序中的焦点，仅将父窗体的Focused属性设置为NULL似乎是不够的。必须将焦点移到另一个控件。TEdit的副作用似乎最少。要对用户隐藏它，必须将宽度和高度设置为1，将AutoSize和TabStop设置为false。Enable和Visible必须是真的。

void __fastcall TForm1::ComboBox1CloseUp(TObject *)
{
    // Remove focus from this control to prevent changing value
    // when drop down list is closed
    if (OtherControl->CanFocus()) {
        OtherControl->SetFocus();
    }
}