用Delphi修改TComboBox的OnChange

Question

我希望更改文本，以便在我向其中键入文本或手动设置TComboBox属性时，它将触发OnChange事件。

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

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

Answer 1

据我所知，在组合框中键入将导致触发OnChange事件。但是，修改text属性并不是事实。

处理CM_TEXTCHANGED消息是我让OnChange为您的组合框触发的方法。此操作的处理程序需要调用Change方法，该方法将调用OnChange (如果已分配)。

作为一个简单的例子，下面是一个interposer类的实现：

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;