Delphi实现窗口一直在桌面工作区内显示，重写WM_WINDOWPOSCHANGING消息

有的时候我们要实现一个悬浮窗口，并使该窗口一直显示在桌面的工作区内。即整个窗口要一直显示在屏幕上，不能超出屏幕的上下左右边缘。此功能的实现也不难，我们需要自己写代码来响应窗口的WM_WINDOWPOSCHANGING消息，话不多说，详细代码如下供参考：

新建一个工程，并把下面代码拷贝到工程中，运行……

Delphi/Pascal

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

; interface uses , ; type ) private ; public } ; var ; implementation } ; begin ; begin ; ; begin ; ; then ; then ; ; .

http://bcoder.com/delphi/make-the-window-always-shows-in-desktop-workarea-in-delphi