【转】全屏3法

来源：互联网发布：中海达手步软件安卓版编辑：程序博客网时间：2024/05/22 11:55

方法一：

设置要全屏的窗体的ALign 属性为 ALcLient ，此法最快。当然对我来说，我并不知道这个，所以走了远路，等后来在实现窗体禁止移动的时候才想到了这里，汗。注意：这种全屏方式不会挡了系统的任务栏。。。。同时可以防止窗体移动，

方法二：用代码控制。在窗体的创建事件中，（此方法运行后窗体也可以移动。影响美观。应该再加入禁止窗体移动的代码）写入

var
    TrayWnd:   HWnd;   //任务栏句柄
   Rec         :   TRect;
begin
TrayWnd   :=   FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄
GetWindowRect(TrayWnd,   Rec);                               //获取任务栏尺寸
mainfm .Left :=0;
mainfm .top:=0;
mainfm .Width :=Screen .Width ;
mainfm .Height :=Screen .Height-(rec.Bottom- rec.Top) ;

这样也实现了全屏不挡了任务栏。

方法三：（全屏要挡住任务栏）

设置窗体的windowState 为wsMaxinized