正常情况下,点击一个窗体,窗体就会被激活,激活后窗体就跑到最前面,将其他窗体覆盖掉,有时候我们只想激活窗体,但又不想让窗体跑到最前面,改如何实现呢?
在delphi中实现起来会比较简单,使用 Form的PopupParent属性即可;设置后Form会始终在PopupParent的前面,即使激活PopupParent也不会改变位置顺序。
另外,PopupParent属性可以解决窗体跑到最后面的问题:
有时候我们使用ShowModal显示窗体时,窗体会跑到后面去看不到,具体原因不知,可能窗体顺序设置时和激活消息冲突造成的,但这种情况会让用户以为程序没反应,而且也确实不管用户如何点击都没反应,需要关掉程序或者按ALT+TAB调出来,很影响使用,使用PopupParent属性可以解决该问题。
以上方法也只能在当前进程内有效,如果想在所有进程都起作用,需要使用API:SetWindowPos,SetWindowPos实际中使用比较复杂, 因为用户使用过程中会不断改变窗体的顺序,所以需要在各种事件中重新调用SetWindowPos去设置位置,同时需要配合WS_EX_NOACTIVATE,具体请查看MSDN