提示形式和焦点

Question

我正在显示自定义表单作为提示。我希望提示窗口不获得焦点。

提示表单的 Enabled 属性设置为 False，我还处理 WM_MOUSE_ACTIVATE 窗口消息并返回 MA_NOACTIVATE。然而，每次显示提示窗口时，我的主窗口的边框都会闪烁（Windows 7 具有透明边框）。

如何避免这种闪烁？

Answer 1

我假设您在处理 Application.OnShowHint 时显示自己的提示表单，如下所示：

procedure TMainForm.ApplicationShowHint(var HintStr: string;
  var CanShow: Boolean; var HintInfo: THintInfo);
var
  HintForm: THintForm;
begin
  CanShow := False;
  HintForm := THintForm.Create(nil);
  HintForm.HintLabel.Caption := HintStr;
  HintForm.Left := HintInfo.HintPos.X;
  HintForm.Top := HintInfo.HintPos.Y;
  ShowWindow(HintForm.Handle, SW_SHOWNOACTIVATE);
end;

最后一行使用 D7 来解决这个问题（并使用 THintFrom 作为正常的在 XP 和 W7 上使用默认设置（例如 Enabled = True）的表单。