如何让我的窗体程序在什么环境下都在最上层。

Question

在delphi 下，如何让我的窗体程序在什么环境下都在最上层。当我把formstyle 设为fsStayOnTop 时，如果这是我有一个播放器全展，工的程序仍在播放器的后面去了。不知如何处理？

Answer 1

SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

Answer 2

在窗体oncreate（）里面哦.........

Answer 3

放在oncreate 中也不行哟！ SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

Answer 4

上边写错了一点点~~
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;

Answer 5

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
仍然无法做到当在播放器全屏时，也让自己的程序显示在最上层。