Delphi 如何检查当前是否显示SHAutoComplete（）列表框？

我正在使用Shell轻量级实用程序函数中的函数 用于在模式对话框中为编辑字段启用路径自动完成的库

按下Esc键时，对话框应关闭，但仅当自动完成未激活时

如何检查当前是否显示焦点编辑控件的完成列表

编辑：

我正在WindowsXP64上使用Delphi2009。大卫发布的代码

procedure TMyForm.FormKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    ModalResult := mrCancel;
end;

---

对我不起作用-对话框关闭。

我无法重现您的问题。以下

OnKeyDown

处理程序与

KeyPreview:=True

结合使用，以其他空形式提供所需的行为

procedure TMyForm.FormKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState);
begin
  if Key=VK_ESCAPE then
    ModalResult := mrCancel;
end;

---

我猜您的表单中还有其他东西正在关闭对话框。

我在几个系统上进行了尝试，结果很奇怪：

• 在使用Windows XP 64的我的电脑上，下拉列表时对话框关闭
• 在VMware虚拟机中的Windows XP Pro上，该对话框也会关闭

但是

• 在使用Windows 7的笔记本电脑上，对话框不会关闭
• 在VMware虚拟机中的Windows 2000 Pro上，对话框不会关闭

由于这是如此不稳定，我选择编写一个小组件，即使操作系统没有提供，也能强制执行正确的行为

---

该组件可按如下方式使用：

procedure TForm2.FormCreate(Sender: TObject);
const
  SHACF_FILESYS_DIRS = $00000020;
begin
  SHAutoComplete(Edit1.Handle, SHACF_FILESYS_DIRS or SHACF_USETAB);
  fAutoSuggestDropdownChecker := TAutoSuggestDropdownChecker.Create(Self);
end;

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then begin
    if not fAutoSuggestDropdownChecker.DroppedDown then
      ModalResult := mrCancel;
  end;
end;

但重要的是，取消按钮没有

Cancel

属性集

组件本身通过连接到应用程序消息处理并使用当前线程的窗口枚举来检查具有“自动建议下拉”类名的可见窗口。如果存在并且可见，则自动完成列表将下拉

unit uAutoSuggestDropdownCheck;

interface

uses
  Windows, Classes, Messages, Forms;

type
  TAutoSuggestDropdownChecker = class(TComponent)
  private
    fDroppedDown: boolean;
    fSaveMessageEvent: TMessageEvent;
    procedure AppOnMessage(var AMsg: TMsg; var AHandled: Boolean);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    property DroppedDown: boolean read fDroppedDown;
  end;

implementation

////////////////////////////////////////////////////////////////////////////////

function EnumThreadWindowsProc(AWnd: HWND; AParam: LPARAM): BOOL; stdcall;
var
  WndClassName: string;
  FoundAndVisiblePtr: PInteger;
begin
  SetLength(WndClassName, 1024);
  GetClassName(AWnd, PChar(WndClassName), Length(WndClassName));
  WndClassName := PChar(WndClassName);
  if WndClassName = 'Auto-Suggest Dropdown' then begin
    FoundAndVisiblePtr := PInteger(AParam);
    FoundAndVisiblePtr^ := Ord(IsWindowVisible(AWnd));
    Result := False;
  end else
    Result := True;
end;

function IsAutoSuggestDropdownVisible: boolean;
var
  FoundAndVisible: integer;
begin
  FoundAndVisible := 0;
  EnumThreadWindows(GetCurrentThreadId, @EnumThreadWindowsProc,
    LParam(@FoundAndVisible));
  Result := FoundAndVisible > 0;
end;

////////////////////////////////////////////////////////////////////////////////
// TAutoSuggestDropdownChecker
////////////////////////////////////////////////////////////////////////////////

constructor TAutoSuggestDropdownChecker.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  fSaveMessageEvent := Application.OnMessage;
  Application.OnMessage := AppOnMessage;
end;

destructor TAutoSuggestDropdownChecker.Destroy;
begin
  if (TMethod(fSaveMessageEvent).Code = TMethod(Application.OnMessage).Code)
    and (TMethod(fSaveMessageEvent).Data = TMethod(Application.OnMessage).Data)
  then begin
    Application.OnMessage := fSaveMessageEvent;
  end;
  fSaveMessageEvent := nil;
  inherited;
end;

procedure TAutoSuggestDropdownChecker.AppOnMessage(var AMsg: TMsg;
  var AHandled: Boolean);
begin
  if ((AMsg.message >= WM_KEYFIRST) and (AMsg.message <= WM_KEYLAST))
    or ((AMsg.message >= WM_MOUSEFIRST) and (AMsg.message <= WM_MOUSELAST))
    or (AMsg.message = WM_CANCELMODE)
  then
    fDroppedDown := IsAutoSuggestDropdownVisible
end;

end.

单位uAutoSuggestDropdownCheck；
接口
使用
窗口、类、消息、表单；
类型
TAutoSuggestDropdownChecker=类（TComponent）
私有的
fDroppedDown：布尔值；
fSaveMessageEvent:TMessageEvent；
过程AppOnMessage（var AMsg:TMsg；var AHandled:Boolean）；
公众的
构造函数创建（AOwner:TComponent）；推翻
毁灭者毁灭；推翻
属性下拉列表：布尔读取fDroppedDown；
结束；
实施
////////////////////////////////////////////////////////////////////////////////
函数EnumThreadWindowsProc（AWnd:HWND；AParam:LPARAM）：BOOL；stdcall；
变量
WndClassName:字符串；
FoundAndVisiblePtr:PInteger；
开始
SetLength（WndClassName，1024）；
GetClassName（AWnd，PChar（WndClassName），Length（WndClassName））；
WndClassName:=PChar（WndClassName）；
如果WndClassName=“自动建议下拉列表”，则开始
FoundAndVisiblePtr:=PInteger（AParam）；
FoundAndVisiblePtr^:=Ord（IsWindowVisible（AWnd））；
结果：=假；
结束其他
结果：=真；
结束；
函数IsAutoSuggestDropdownVisible:布尔；
变量
FoundAndVisible：整数；
开始
FoundAndVisible:=0；
EnumThreadWindows（GetCurrentThreadId，@EnumThreadWindowsProc，
LParam（@FoundAndVisible））；
结果：=FoundAndVisible>0；
结束；
////////////////////////////////////////////////////////////////////////////////
//TAutoSuggestDropdownChecker
////////////////////////////////////////////////////////////////////////////////
构造函数TAutoSuggestDropdownChecker.Create（AOwner:TComponent）；
开始
继承的创建（AOOwner）；
fSaveMessageEvent:=Application.OnMessage；
Application.OnMessage:=AppOnMessage；
结束；
析构函数tautossuggestDropDownChecker.Destroy；
开始
if（TMethod（fSaveMessageEvent）.Code=TMethod（Application.OnMessage）.Code）
和（TMethod（fSaveMessageEvent）.Data=TMethod（Application.OnMessage）.Data）
然后开始
Application.OnMessage:=fSaveMessageEvent；
结束；
fSaveMessageEvent:=nil；
继承；
结束；
程序TAutoSuggestDropdownChecker.AppOnMessage（var AMsg:TMsg；
变量AHandled:Boolean）；
开始
如果（（AMsg.message>=WM_KEYFIRST）和（AMsg.message=WM_MOUSEFIRST）和（AMsg.message+1，好问题；我想知道，除了检查
iautomplete
是否显示列表外，是否还可以手动显示列表。那么，你是说在你的程序中，现在Esc键取消自动完成窗口并关闭对话框？如果是这样，我很惊讶，因为自动完成对象处理keyboard消息已经存在，因此它应该知道在截获Esc键后不要转发它。@Rob:是的，它正是这样做的。我取消了取消按钮的
Cancel
属性，并使用表单的
KeyPreview
和
OnKeyDown
，但即使按Esc键取消了完成列表，它仍然被调用。