当显示窗口 A 时，我想显示另一个非模态弹出窗口 B，但是：
如您所见，我想要的窗口 B 类似于一个更有用的弹出窗口，如弹出菜单（当您希望它通过单击任何按钮离开时，它比一般的非模态窗口的障碍更小）父窗口的其他部分）。
我的问题清楚吗？ 谢谢。
【问题讨论】：
我为“1”找到的最简单的解决方案是在弹出表单被激活后立即向调用表单发送 WM_NCACTIVATE（在 WM_ACTIVATE 处理程序中），以便调用表单将其标题与活动颜色。您必须在弹出表单中有调用表单的引用才能实现此目的。
对于“2”，您可以在同一个 WM_ACTIVATE 处理程序中释放弹出表单，这不会吃掉转到调用表单的点击。
等等。像这样应该去弹出窗体；
type
TForm2 = class(TForm)
[..]
private
FOwner: TForm;
procedure WmActivate(var Msg: TWMActivate); message WM_ACTIVATE;
public
constructor Create(AOwner: TComponent); override;
[...]
constructor TForm2.Create(AOwner: TComponent);
begin
if not (AOwner is TForm) then
raise Exception.Create('Owner should be TForm');
FOwner := TForm(AOwner);
inherited;
end;
procedure TForm2.WmActivate(var Msg: TWMActivate);
begin
SendMessage(FOwner.Handle, WM_NCACTIVATE, Ord(Msg.Active <> WA_INACTIVE), 0);
inherited;
if Msg.Active = WA_INACTIVE then
Release;
end;
并提供调用表单作为弹出表单的所有者；
procedure TForm1.Button1Click(Sender: TObject);
var
PopForm: TForm2;
begin
PopForm := TForm2.Create(Self);
[..]
【讨论】：
为了防止窗口获得焦点，您必须指定WS_EX_NOACTIVATE 扩展窗口样式（Windows 2000 及更高版本）或处理WM_MOUSEACTIVATE 并返回MA_NOACTIVATE。
【讨论】：
我可以用它来不失去焦点：
SetWindowPos(Form2.Handle, HWND_TOP, 0, 0, 0, 0,
SWP_SHOWWINDOW or SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE);
第二部分没看懂。
【讨论】：
spTBXLib 中的 SpTBXFormPopupMenu 完成这项工作。
转到http://www.silverpointdevelopment.com/sptbxlib/index.htm 并查找“表单弹出窗口”
关键似乎是容器'popuped'必须继承TPopupMenu。但是处理很复杂，你可以在代码中自己看到。我的建议是按原样使用它，因为 Robert Lee 做得很好。
【讨论】：
我自己在这里找到了解决方案。谢谢大家！：
【讨论】：
我找到了一个几乎完全符合我要求的：TAdvStickyPopupMenu
【讨论】：