怎樣把一個form在程式開始運行時自動最大化且不容許用戶中間化該form?

引言: 怎樣把一個form在程式開始運行時自動最大化且不容許用戶中間化該form?

YourForm.WindowState:=wsMaximized; YourForm.Show;

試試在Tform1.create事件上 寫上form1.WindowState:=wsmaximized; form1.borderstyle:=bsdialog; 當然也可以直接在object inspector直接改WindowState、borderstyle 這二個屬性

我己把WindowState設為wsMaximized WindowState設為bsSizeable 但form還可以"往下還原",請問怎樣可以防止用戶按"往下遇原"?

試試自己調整一下bordericon 跟 borderstyle的屬性值

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Menus, StdCtrls;    type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private   procedure  OnMessage(var Msg: Tmsg; var Handled: Boolean);     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;    implementation    {$R *.dfm} procedure TForm1.OnMessage(var Msg: Tmsg; var Handled: Boolean); begin //关闭最小化 if msg.wParam =$8 then             handled:=true; //关闭中间化 if msg.wParam =$9 then             handled:=true; //关闭标题右键 if msg.wParam=$2 then if msg.hwnd=handle then          handled:=true; inherited; end;    procedure TForm1.FormCreate(Sender: TObject); begin //开始最大化 windowState :=wsMaximized; application.OnMessage :=OnMessage; end;    end.    try~~

chrislao你好: 把'往下還原'的按鍵拿掉,你想這樣好不好....

------
======================
昏睡~
不昏睡~
不由昏睡~

對,我就是想把”往下還原”拿掉,請指教

如果我把BorderIcons 的biMinimize設為false是可以拿掉”往下還原”,但form1 最大化後,form1 的 statusbar會被windows 的工作列所覆蓋,因而看不見statusbar,請指教

chrislao 兄： 我想我上面应该能够满足您的要求，除非我将你的意思理解错了！ 發表人 -

chrislao你好: 你找一下FROM1的屬性欄有可以把最大化,最小化,關閉的按鍵拿掉的屬性

------
======================
昏睡~
不昏睡~
不由昏睡~

您好﹗    其實您所提的問題以上各位前輩們都有講解到了﹒小弟將其整理一下﹐再回答您最后一個問題﹕    在設計時期可用Form中的屬性設定來控制視窗的顯示﹐在執行時期可用程式碼設定Form中的屬性來控制視窗的顯示﹒    設計時期（做到您需要的效果）﹕ Form的WindowState屬性值﹕設為wsMaximized（最大化視窗） Form的BorderIcon屬性值﹕只將其中的biSystemMenu（關閉視窗的按鈕﹐就是那個X）設為True﹐其它都為False﹐您所指的不容許用戶中間化Form﹐其實是和biMaximize有關聯﹐當您把此屬性值設為True時﹐From在Run的時候就可以做中間化和最大化之間的轉換（也就是您所說的"往下還原"）﹐若需要使用最小化﹐請將biMinimize設為True Form的BorderStyle屬性值﹕設為預設值bsSizeable就好﹐不需要改動 執行時期（做到您需要的效果）在Form的OnCreate事件中﹕

procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowState := wsMaximized;
  BorderIcons := [biSystemMenu];
  //若需顯示最小化按按鈕﹕BorderIcons := [biSystemMenu,biMinimize];
  FormStyle := fsNormal;
end;

小弟測試了一下您所說的"如果我把BorderIcons 的biMinimize設為false是可以拿掉”往下還原”,但form1 最大化後,form1 的 statusbar會被windows 的工作列所覆蓋,因而看不見statusbar"﹐其實不是因biMinimize設為False引起的﹐而是biMaximize引起的﹐當biMaximize為False時就會出現這樣的現象﹐有一個解決的方法﹐就是將FormStyle屬性值設為fsStayOntop（最上層顯示）﹐就可以正常顯示您的Statusbar了﹐不過這樣做有一個缺點﹐就是Windows的工具列也會被遮蓋住﹐那就要請您斟酌考量了﹒若需要在執行時期也將FormStyle屬性值設為fsStayOntop﹐請在Form的OnCreate事件中改最后一句如下﹕ FormStyle := fsStayOntop; 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟