Delphi設計一個啟動畫面和退出畫面，在程序運行時，先出現一個啟動歡迎畫面，畫面顯示一秒鐘後，才彈出主窗口。當程序關閉時，主窗口先行隱藏，然後出現一個退出畫面，顯示一秒鐘後，關閉程序。如下圖所示：
Delphi制作啟動畫面和退出畫面設計思路：
本程序利用的控件主要有：RichEdit 控件、Edit 控件、UpDown 控件和Image 控件等。技巧是如何把Edit 控件和UpDown 控件聯系起來，從而得到窗體的縮放倍數，然後實現窗體的同步縮放。函數Procedure ScaleBy（M，D：Integer）可以實現同步縮放窗體，同時把窗體中的控件縮放同樣的倍數。創建程序啟動畫面的技巧是，給程序的initialization 部分添加代碼，使之在主程序之前執行。
具體設計步驟：
當用戶要改變一個窗體的顯示比例時，可以使用ScaleBy 方法，通過調用兩個整型參數（分別是一個分數的分子和分母），用戶可以對一個獨立的組件使用相同的對象方法。例如對一個窗體調用ScaleBy（2，5）表示將窗體變形為原尺寸的2/5。通常情況下，可以將ScaleBy 語句寫成ScaleBy（40，100）。在本實例中，用戶可以根據需要手動設置窗體變形的比例。本程序包括的控件有RichEdit 控件、Edit 控件、UpDown 控件、Button 控件和Label 控件。UpDown 控件通過設置Associate 屬性與一個編輯框Edit 建立關聯，用戶可以在編輯框中輸入數值或單擊方向箭頭來改變編輯框中的數值。通過設置Increment 屬性可以來定制數值之間的最小間隔，Max 和Min 的屬性限定了UpDown 數值的上限和下限。在控件進行同步變形時，RichEdit 控件中的文本也按照相同比例改變大小，為了實現文本大小的同步改變，文本必須使用TrueType 字體。與普通的窗口不同的是，啟動畫面是在單元的initialization 部分創建和顯示的。由於initialization 是在主程序之前執行，所以，啟動畫面總是在主窗口顯示之前出現。不要用Application.CreateForm()來創建閃屏的窗口。因為凡是第一個用Application.CreateForm ()創建的窗口，Delphi 都把它看做是應用程序的窗口。
要實現工程的退出畫面，可以如下設計：在工程關閉時，把主窗口先行隱藏，彈出退出畫面，該畫面顯示一秒鐘後，關閉程序。
1．新建工程
（1）啟動Delphi 6.0 程序。選擇“文件”菜單下的“新建”命令，從彈出的子菜單中選擇Application 選項，則出現新建工程的Form1 窗口。
（2）選擇“文件”菜單下的“工程另存為”命令，彈出Save Unit1 As 對話框。在“保存在”列表框中選擇需要存放該窗口文件所在的目錄名；在“文件名”編輯框中填寫文件名，這裡填寫“ScaleF”，點擊“保存”按鈕，保存上面的選項。
（3）執行上一步後，將彈出“工程另存為”對話框。在“保存在”列表框中選擇需要存放該工程的目錄名，最好和第（2）步選取相同的目錄；在“文件名”編輯框中填寫保存處理該工程的源代碼的文件名，這裡填寫“Scale”，點擊“保存”按鈕，保存上面的選項。
2．修改窗口
（1）激活Form1 窗口，在“屬性”面板中設置該窗體的Caption 屬性為“窗體大小控制”，Color 屬性設置為“clSkyBlue”。
（2）選擇Win 32 頁上的RichEdit 選項，在窗體中添加一個RichEdit 控件，調整其合適的大小和位置。然後在“屬性”面板中設置其Color 屬性為“clInfoBk”，用鼠標點擊Lines 屬性右邊的文本框，彈出如圖3-16 所示的“字串列表編輯器”對話框，在對話框中輸入“該程序可以實現窗體及其內部所有控件同步放大或縮小的效果。在放大（或縮小）倍數文本框中可以輸入放大（或縮小）的倍數，也可以使用升降條更改倍數文本框中的數據，單擊“放大（縮小）”按鈕，即可以實現窗體的放大（或縮小），同時窗體的其他控件（包括控件上的文字）也隨之放大或縮小，單擊“恢復原狀按鈕”可以使窗體恢復原狀大小。”並且要在適當的地方換行。
（3）選擇“標准”頁上的Label 選項，在窗體中添加一個Label 控件，調整其合適的大小和位置。在“屬性”面板中設置其Color 屬性為“clSkyBlue”，設置其Caption 屬性為“放大（縮小）倍數”。
（4）選擇“標准”頁上的Edit 選項，在窗體中添加一個Edit 控件，調整其合適的大小和位置。在“屬性”面板中設置其Color 屬性為“clInfoBk”，Text 屬性為“100”，Font.Color為“clNavy”。
（5）選擇Win 32 頁上的UpDown 選項，在窗體中添加一個UpDown 控件，調整其合適的大小和位置。在“屬性”面板中設置其Associate 屬性為“Edit1”，建立UpDown 控件和Associate 控件之間的關聯。UpDown 控件的Increment 屬性設置為10，Max 屬性設置為300，Min 屬性設置為30，Position 屬性設置為100。
（6）選擇“標准”頁上的Button 選項，在窗體中添加兩個Button 控件，調整其合適的大小和位置，在“屬性”面板中設置其Caption 屬性分別為“放大（縮小）”和“恢復原狀”。設置其Name 屬性分別為“ScaleButton”和“RestoreButton”。控件添加完畢後的窗體如下圖所示。
（7）下面制作啟動畫面窗口。通常，這個窗口最好有一個面板（Panel），但不能有邊界或標題欄。這樣，窗口看上去就像一個立體的浮動的面板。在面板上，放置一個或多個Label 控件，也可以放一個Image 組件，用於顯示位圖或圖標。在本實例中，直接應用了Image 組件。選擇“文件”菜單下的“新建”命令，從彈出的子菜單中選擇Form 選項，新建一個窗口Form2，該窗口作為啟動畫面的窗口。在“屬性”面板中設置其“BorderStyle”屬性為“bsNone”。
（8）選擇“附加”頁上的Image 選項，在窗體中添加Image 控件，調整其合適的大小和位置。再在“屬性”面板中設置其“Align”屬性為“alClIEnt”。用鼠標點擊Picture屬性右邊的文本框，彈出如圖3-18 所示“圖畫編輯器”編輯框，點擊“加載”按鈕，從彈出的“加載圖畫”對話框中選擇合適的圖片文件，點擊“打開”按鈕，將圖片導入到“圖畫編輯器”編輯框中，點擊“確定”按鈕確定。
（9）選擇“文件”菜單下的“新建”命令，從彈出的子菜單中選擇Form 選項，新建一個窗口Form3，該窗口作為退出畫面的窗口。在“屬性”面板中設置其“BorderStyle”屬性為“bsNone”。選擇“附加”頁上的Image 選項，在窗體中添加Image 控件，調整其合適的大小和位置。在“屬性”面板中設置其“Align”屬性為“alClIEnt”。用鼠標點擊Picture 屬性右邊的文本框，給Image 組件添加合適的圖片。
