delphi - 提示形式和焦点

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;

在XP和W7上，最后一行使用D7（以及 THintFrom作为具有默认设置的常规格式，例如Enabled = True）来解决问题。