Delphi7 實現窗體全屏方法

設置要全屏的窗體的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)

end; 
這樣也實現了 全屏不擋了任務欄。 方法三：（全屏要擋住任務欄） 
設置窗體的windowState 為wsMaxinized ,汗。。

再來一種

procedure TForm1.Button1Click(Sender: TObject);
begin
//覆蓋任務欄
Self.BorderStyle := bsNone;
Self.Left := 0;
Self.Top := 0;
Self.Width := Screen.Width;
Self.Height := Screen.Height;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//保留任務欄
Self.BorderStyle := bsNone;
Self.Left := Screen.WorkAreaLeft;
Self.Top := screen.WorkAreaTop;
Self.Width := Screen.WorkAreaWidth;
Self.Height := Screen.WorkAreaHeight;
end;