1.5.1.1 創建一個含有About框的例程
作為例子,我們先創建一個含主窗體和簡單的About框的應用程序:
在Delphi中創建一個新工程,並為空窗口增加一個Button部件。我們把它作為主窗體,目的是當按動按鈕部件時,調出About窗口。下面我們直接進行About窗口的創制。
選用主菜單的File New項,在New頁中,選用Form樣板,Delphi會自動創建一個空窗體Form2。您可以在其上進行About框的設計,例如加入標簽以顯示各種信息、加入圖片幫助說明等。將Form2的BorderStyle屬性設置為bsDialog,則窗口成為運行時不能改變大小的對話框。
下面編程實現主窗體對About框的顯示控制。很可能在設計時,兩個窗體出現重疊,Form1被About遮住。用Shift+F12產生View Form對話框,可以選擇窗口的名字,調出所需的窗體Form1,雙擊其上的按鈕部件,在事件處理過程加入以下的程序:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;
由於Form1窗體調用About窗體,所以必須在Form1的庫單元程序中對引用About進行說明。在Unit1的Uses後面加入About的庫單元名Unit2。運行程序,在主窗體上按動按鈕,可以出現About框。在框外單擊鼠標,會回到主窗體中。
在About窗體中加入一個按鈕,並將按鈕的ModalResult屬性設置為mrOK,同時將按鈕的標簽的Caption改為OK。這樣一個有模式的About框已經建成了。將窗體Form1中Button1的OnClick處理過程的代碼改變如下:
Form2.ShowModal;
再運行程序,除了與上述功能相同顯示About對話框外,該程序只有當用戶按動About框的按鈕或被About窗控制圖標關閉窗口後,才會回到主窗體中,而不能與第一個窗體發生交互行為。這就是方法Show和ShowModal的主要不同之處。
1.5.1.2 指定自動創建窗體
上面我們簡單地生成了一個含About框的雙窗體應用程序,運行時,應用程序啟動時將自動創建第二個窗體。窗體保持隱蔽狀態,但仍然占用Windows的資源。在大型應用程序中,有時不希望在應用程序加載時自動創建所有窗體。Delphi可以指定哪些窗體被自動創建。
選用Project Options,Delphi顯示Project options對話框。如果Forms不是當前頁,按動下標簽使之可見。如圖1.12所示:
圖示為Delphi裝載的TextEdit例程(...\Delphi 2.0\Demos\doc\TextEdit.dpr)。在MainForm正文框中輸入主窗體的名字。當應用程序啟動時,主窗體自動打開並獲取輸入焦點。對MDI應用,主窗體的FormStyle屬性必須設置為fsMDIForm。在Auto-created Forms列表框中列出了在啟動時自動創建的窗體,缺省時工程文件的所有窗體都在此列中。
如果不需要自動創建窗體,使用箭頭按鈕把窗體移動到Available Forms列表框中。自動創建的窗體可以用Show方法進行顯示,而不自動創建時,必須編程實現窗體的顯示。在TextEdit工程中,定義一個TEditForm類型的變量EditForm,使用了以下的代碼顯示第二個窗體:
Begin
EditForm := TeditForm.Create(Self);
EditForm.Open(OpenFileDialog.Filename);
EditForm.Visible := True;
End;
也即,必須使用Create方法創建窗體,同時將窗體的Visible屬性設為真。