在Delphi中讓窗體"StayOnTop"最簡單的辦法是設置Form的"FormStyle"屬性為"fsStayOnTop",但采用這種方法,如果再設置"FormStyle"屬性為其他模式時,會出現窗口跳動閃爍。為了避免這個問題,這裡可以利用API的威力來實現同樣的功能。
1、設置窗體為"StayOnTop"風格。
SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height, 0);
2、設置窗體為正常的、非Topmost風格。
SetWindowPos(Form1.handle, HWND_NOTOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height, 0);
這裡的Form1為你的窗體的名字。