为什么组合框会在字体更改时将其文本更改为项目文本？

Question

这显然是一个错误，但我无法追查为什么会发生。这是一个要重现的简约代码。只需在表单上放置一个组合框和按钮，然后编写以下事件处理程序：

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Add('A Item');
  ComboBox1.Items.Add('B Item');
  ComboBox1.Items.Add('C Item');
  ComboBox1.Style := csDropDown;
  ComboBox1.AutoComplete := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Text := 'B';
  ComboBox1.Font.Color := clRed;
  ShowMessage(IntToStr(ComboBox1.ItemIndex));
end;

当您第一次单击按钮时，您将在组合编辑中看到第二个项目的完全选定文本，但消息框会显示项目索引等于 -1。当您下拉它时，似乎选择了第二个项目。第二次单击将设置正确的文本，但其余部分与第一次单击时相同。因此，在这种情况下，组合框的行为就像启用了一些奇怪的自动完成功能。

我已将此追踪到EditWndProc，在收到字体更改后WM_SETTEXT 消息与第二项的文本，但我不知道它来自哪里以及为什么与第二项的文本项目。

所以，我的问题非常具体 - 什么（哪种方法）在字体更改时发送 WM_SETTEXT 以及在禁用自动完成时它如何知道第二项文本匹配？

到目前为止，我可以在安装了最新更新的 Windows 7 Home Premium 64 位上的 Delphi 2009 和 Delphi XE3 中重现此问题。

Answer 1

我对 Delphi XE8 的实验似乎表明，只要你第一次开始使用 TComboBox 并且在你之前首先给它写文本。我认为 WM_SETTEXT 选择错误的文本只会在第一次写入字体颜色（或其他字体属性）时发生。之后，一切正常。无论是 Windows 还是 Delphi 中的错误，我都懒得去发现，因为这个技巧为我解决了问题。 :) 然而，我怀疑这是“初始化之前的操作”的另一种情况，因为当您为用户提供大量后期构造时，编码人员没有考虑到事情并不总是以方便的顺序调用的事实配置属性（例如更改尚未使用的 TCombobox 中的字体和文本）。如果这确实是“万灵药”，那么也许我们应该说服 Delphi 团队为我们将其放入 TCombobox（或祖先）构造函数中。顺便说一句，这个相同的“错误”导致 SelLength 从零开始变化 - 非常烦人，因为它最终将文本框着色为蓝色，暗示焦点，而当焦点不是！因此，如果您的表单上有很多组合框都显示为蓝色并声称拥有焦点 - 这也是特别令人头疼的根源！

顺便说一句，我已经向 Embarcadero 提出了这个问题，并提出了一个解决方案，将上述技巧合并到基本构造函数中。他们将其传递给编码人员，但新版本的 Delphi 是否会包含必要的修复还有待观察。

Answer 2

只需启用调试 DCU，然后进入 Font.Color 属性设置器，您就可以在几秒钟内自行追踪到这一点。

当Font 因任何原因发生更改时，将触发TFont.OnChange 事件。 TControl 具有分配给它的事件处理程序，即使它可以向自己发送 CM_FONTCHANGED 消息以允许后代类对更改做出反应。当TWinControl 收到该消息时，它会向自身发送WM_SETFONT 消息，然后触发 ComCtl32 发送您所看到的WM_SETTEXT 消息。

Answer 3

我认为这不是 VCL 问题，查看调用堆栈，似乎消息似乎是通过 comctl32.dll 处理的。 可以通过在设置文字之前设置字体颜色来解决问题：

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Font.Color := clRed;
  ComboBox1.Text := 'B';
  ShowMessage(IntToStr(ComboBox1.ItemIndex));
end;