请问如何把我的程序永远置于前台

Question

设置formstyle属性为fsStayOnTopform1.formstyle:=fsStayOnTop;
form1.width:=screen.Width;         //让窗体全屏幕显示
form1.height:=screen.Height;
form1.Position:=poScreenCenter

Answer 1

为什么我的程序写成如下
setwindowpos(form1.handle,hwnd_topmost,0,0,0,0,swp_nomove+swp_nosize);
但是运行后它并未处在最层

Answer 2

var  h:Integer;  p:Tpoint;begin  GetCursorPos(p);//得到鼠标坐标  h:=windowfrompoint(p);//得到鼠标处的窗体句柄 SetWindowPos(h,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE);end;

Answer 3

formstyle属性为fsStayOnTop
就可以实现你的要求了！