怎么样实现全屏

Question

把窗体的borderstyle设为none,windowstate设为wsmaximized

Answer 1

Ret : Hwnd;
Ret := FindWindow('Shell_TrayWnd','');
SetWindowPos(Ret,0,0,0,0,0,Swp_HideWindow);
//隐藏任务条
SetWindowPos(Ret,0,0,0,0,0,Swp_ShowWindow);
//显示任务条 

Answer 2

left:=0;
Top:=0
Width:=Scree.Width;
Height:=Dcreen.Height;
可以设置窗体为stayOntop
也可以直接隐藏appbar：
var 
Ret : Hwnd;
begin
Ret := FindWindow('Shell_TrayWnd','');
SetWindowPos(Ret,0,0,0,0,0,Swp_HideWindow);//若要显示，则用SetWindowPos(Ret,0,0,0,0,0,Swp_ShowWindow);
end

Answer 3

直接使用了renzhm(戴尔飞)　的代码^_^

Answer 4

SetWindowPos 把开始条都盖住