单击组合框的编辑控件时，如何触发TComboBox的TComboBox事件？

Question

我有TComboBox和Style := csDropDown。我希望这样做，以便如果用户单击组合框的编辑框部分，那么编辑框中的整个文本将被选中。因此，我考虑实现组合框的OnClick事件，但是只有在显示组合框列表时才触发OnClick事件。当列表关闭并且只有一个项目是可见的时，它不起作用，这就是我想使用它的地方。

除了OnClick之外，我还尝试过其他事件，如OnEnter，但我尝试过的所有事件似乎只有在组合框列表展开或单击组件右侧的小箭头时才能工作。

我还尝试过鼠标事件，比如OnMouseDown，这些事件不是为组合框发布的，但是在设法实现它们之后，它们也只能在鼠标单击小箭头以展开列表或展开列表时才能工作，而不是在组合框的编辑框部分。

Answer 1

这对我起了作用：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TComboBox = class(Vcl.StdCtrls.TComboBox)
  protected
    procedure EditWndProc(var Message: TMessage); override;
  end;

  TForm1 = class(TForm)
    ComboBox1: TComboBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


{ TComboBox }

procedure TComboBox.EditWndProc(var Message: TMessage);
begin
  inherited;
  if Message.Msg = WM_LBUTTONDOWN then
    SelectAll;
end;

end.