Delphi：如何获取 TComboBox 组件的句柄？

Question

据我所知，Combobox由两个组件组成：Edit和ListBox。如果我有编辑字段的句柄，如何获取组合框的句柄？ 我尝试使用 GetWindow(MyHandle, GW_HWNDNEXT)，其中 MyHandle 是我知道的 Edit 句柄，但结果始终为 0。有人有什么想法吗？

非常感谢。

Answer 1

“编辑”窗口是“组合框”窗口的子窗口：使用 <代码>GetParent。

Answer 2

TCustomCombo 定义 ListHandle 和 EditHandle 属性。这些具有受保护的可见性，但您始终可以通过子类化或使用标准技巧来获取受保护的成员来获取它们：

type
  TCheatComboBox = class(TComboBox);

function GetListHandle(Combo: TComboBox): HWND;
begin
  Result := TCheatComboBox(Combo).ListHandle;
end;

Answer 3

您是如何获得 Edit 的句柄的？如果执行Combobox1.Handle，您将获得COMBOBOX 类窗口的句柄。

阅读 http://msdn.microsoft.com/en-us /library/bb775792(VS.85).aspx