delphi - Delphi-更改TComboBox的OnChange

Question

我想更改TComboBox，以便如果我在其中键入文本或手动设置Text属性，它将触发OnChange事件。

现在，执行ComboBox.Text := 'blah'不会触发OnChange事件，也不会在框中键入内容。

我尝试创建一个TComboBox后代，我认为这是正确的方法，但是我不确定如何更改触发事件的方式。

Answer 1

据我所知，键入一个组合框将导致OnChange事件触发。但是，确实没有修改text属性。

我要为组合框触发OnChange的方式是处理CM_TEXTCHANGED消息。为此的处理程序需要调用Change方法，如果已分配OnChange，则该方法然后将调用 。

作为一个简单的示例，这是一个插入器类实现：

type
  TComboBox = class(StdCtrls.TComboBox)
  protected
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
  end;

procedure TComboBox.CMTextChanged(var Message: TMessage);
begin
  inherited;
  Change;
end;