1、如果您的 Windows95系統中安裝了中文系統, 對界面做漢化是極其方便的。 例如, 您可 以將 Button1的 Caption 屬性改成“&R矩形”,同樣地可改變其它部件的屬性,將窗體做 成中文的操作界面。若對中、西文字體不滿意,則可以調整 Font 屬性以滿足您的要求。 Font 屬性的前面, 有一個小小的“+”號,這說明它表征的是集屬性,也即屬性不再是一個單值,而是一個屬 性的集合。雙擊 Font , Object Inspector將在下面擴充顯示它的其它屬性。 Color 用來表 示文本的顏色, Name 定義了字體名,如 System,MsSerif,Arial, 宋體

2、,黑體等。 Style 下又 擁有四個屬性:fsBold,fsItalic,fsUnderline 和 fsTrikeOut 。 如果想讓字體有其中的某種 風格,可把相應的屬性值設成 True 。Font 對話框可以更為直接地設定以上屬性。 Font 屬性右側值段有帶省略號的按鈕,單 擊它可以激活 Font 對話框,如圖 1.7所示:這一對話框中包含了上述的全部屬性, 使得調整字形更為直接方便。 但要申明的是, 對 于窗體 Form 來講, Font 屬性改變的是窗體中其它部件的顯示字形,它本身的標題字體是缺 省的 System 字體,不能通過屬性來改變。最后,我們用圖標按鈕 BitBtn1來

3、控制 Shape 部件的顏色。選中圖標按鈕,將它的 Cap tion 屬性改為“&Color”(或“&C顏色”。可以在按鈕中加入一個圖標來形象地表述它的 功能。選用 Object Inspector中的 Glyph 屬性,點動值段的三點按鈕,彈出圖形編輯對話 框。您可以通過圖形編輯對話框裝入圖標,在本例程中,按動 Load 按鈕,選擇 Delphi 2. 0ImagesButtonsBrush.bmp文件裝入, Bitbtn1就成為一個圖標按鈕。另外, Delphi 還 為您提供了豐富的 Windows 標準圖標按鈕。 想運用它們, 改變 BitBtn 的 Kind 屬性。 用

4、戶不 妨嘗試一下, 選擇其它值可以生成漂亮的標準按鈕, 如 OK,Cancel 等等。 這會使您在以后的 程序開發中受益匪淺。至此,界面的設計工作就已完成了。運行一下觀察效果,別忘記保存您的庫單元文件、 工程文件。完成用戶界面, 只是建立了一個 “骨架” , 下面要做的便是給程序加入 “靈魂” , 也即, 使它能夠完成所要求的功能。單擊窗體上的 “Rectangle” 按鈕,在 Object Inspector中,點動 “Events” 頁標簽,出現事件 窗口。 在本例程中, 我們只關心 OnClick 事件, 即按鈕接收到左鍵單擊時應用程序所作出的反應。在 Object Inspector

5、窗口中雙擊 OnClick 事件右端的值段,會使得 Delphi 激活庫代碼 編輯器, 并將光標停在該按鈕所對應的過程的 begin.end 之間。 “Rectangle” 按鈕的功能是使 Shape 部件的形狀為矩形。 聯系前文我們查看過的 Shape 部件的 “Shape” 屬性, 現在, 我們要 做的是在程序中控制部件的屬性。在光標處鍵入以下的程序段:Shape1.Shape := stRectangle;用同樣的方法,在 Button2和 Button3的 OnClick 事件響應內復制以上語句,并分別將 賦值號后的屬性值改為 stRoundRect 和 stEllipse 。為防止輸

6、入錯誤導致程序運行出錯,建議 您使 Shape1部件的 Object Inspector可見,檢視屬性 Shape 的各個值并對應輸入。在代碼編輯器中, Delphi 自動建立的過程以 關鍵字 Procedure 開頭,用戶可以在 beginend 之間加入自己的程序,也可以定義變量。這個程序塊對用戶的外部事件 (此例中 是按動按鈕 進行響應。我們稱之為事件處理過程。圖標按鈕 “Color” 要控制部件 Shape1的顏色,我們可以調入顏色編輯對話框,用以選擇 要變成的顏色。 這時就要用到運行時不可視的部件 ColorDialog 了。 同樣地使圖標按鈕 BitBtn1響應 OnClick 事

7、件,在它的過程中加入以下的語句:ColorDialog1.Execute;這樣,圖標按鈕的功能也就完成了。初學者可能對這樣的程序段不能理解。 其實也是十分簡單的。 查看 ColorDialog 的 Brush 屬性,就會發現它是個集屬性,在其下還有一個 Color 選項,正是我們想改變的屬性。既然 我們想將圖形的顏色變得更加豐富多彩, 它本身提供的幾種顏色就已不能滿足要求了。 用顏 色編輯器可以得到更多的色彩。程序的第一句用 Execute 方法,使得 ColorDialog 運行它本 身。當用戶在對話框中進行操作,選定了一種顏色時,即使得 TColorDialog 對象的一個屬 性 Colo

8、r 置為選定顏色的值。將此值賦給 Shape1的 Brush 屬性的子屬性 Color ,就將選定的 顏色加到了圖形上。讀者的要求可能會是, 怎樣盡快的了解這些這些方法、 屬性和域呢?下文對使用聯機幫 助的簡單介紹可能會對您有所裨益。事實上, 使用聯機幫助是您全面地了解可用的方法、 對象的域、 屬性等信息的最快捷途 徑。您還可以參考 Delphi 給定的例程。較為簡單有效的方法是使用 Help 中的搜索功能。如果您對一個對象知之甚少,選用主菜單中的 Help Help Topics 項,在彈出的幫助對話框, 選用 Indexes(“ 索引 ” 頁, Delphi 2.0會提示您輸入要檢索的主題

9、。以您想用的部件的對象名 作為檢索主題詞, 可以參閱很多基本的信息。 例如, 上文的例程中, 在編輯框中鍵入對象的 名稱 TColorDialog ,在詞條中就會出現該主題,按動 Display 按鈕顯示出 TColorDialog 的幫 助信息。 查看 method, 可以找到能應用在 CclorDialog1上的方法 Execute; 仔細閱讀它的功能, 上述的編程便不難理解了。 Properties 中提供了部件的所有屬性,在關鍵屬性 Key Properties前加上了 “ 金鑰匙 ” ,提供了詳盡的說明。在 Task 中您可以查閱該對象的其它相關主題,還 可以參閱 Example 中

10、的應用例程。用幫助窗口的 Edit 各種功能進行復制、剪貼等操作。如果您已經對對象有一定的了解, 想查閱它的具體方法、 域等, 可以直接用主題詞進行 檢索。以上, 我們已經完成了簡單的例程。 運行您的程序, 選用各個按鈕改變圖形的顏色和形 狀。如圖 1.9所示。雖然它只是一個 “ 小玩具 ” ,卻直觀地給您一個用 Delphi 編程的印象。對 比一下您親手編制的程序量和程序的功能, 您就會理解 Delphi 為程序員提供了怎樣的方便。 1.3 Delphi 2.0的可視化部件用法簡介本節中,我們將較為深入地講解 Delphi 的部件。這是編制大型復雜應用程序的必由之 路。 下面, 我們將對各種

11、部件分類進行簡單的介紹, 以便于您在編程時能夠較快地了解有哪 些部件可能會滿足您的要求,并對其重要的方法、屬性等有一個大致的了解。基本技巧、工具的介紹在本章的第 4節中,交互閱讀這兩部分,多創制幾個試驗程序, 有助于您迅速進入 Delphi 世界,盡早將這一精妙軟件用于實際工作中。以下的部件以各種格式顯示文本, 其中有些是文本和數據輸入的途徑。 它們是 Label(標 簽 、 Edit(文本編輯 、 MaskEdit(格式編輯 、 Memo(備注 、 List Box(列表框 、 Combo Box(組 合框 。除了 MaskEdit 在 Additional 頁之外,其它的都在 Standa

12、rd 頁中。Label(標簽 一般放在對象的旁邊, 用來標記這些對象, 從而對用戶的操作進行提示, 也 可以用來顯示其它信息。 您可以在標簽中設置熱鍵, 也即在 Caption 屬性值段中輸入含有 “&” 的字串,當用戶使用 “Alt+關鍵字母 ” 時,將自動選中它所指向的對象。方法是設置 Label 部 件的 FocusControl 屬性,在值段中,選用與它關聯對象的對象名。Edit 、 MaskEdit 、 Memo 部件都是用作接收、顯示用戶輸入文本的。它們具有一些相同 的屬性。 ReadOnly 在運行時間內控制對象是否可以進行 Windows 的操作,當此值為 False

13、時, 該框內的文本就不能被復制到剪貼板上。 MaxLength 可以設置輸入文本的長度限制。 用 PasswordChar 屬性可以按照顯示隱蔽密碼的方法顯示用戶輸入文本,例如,它的缺省值為 “*” ,運行時,您的輸入將用 “*” 來顯示,從而提供了一種安全措施。您可能也發現了,當一個字段被加上高亮度顯示時, 按鍵操作會將這一字段刪除, 替換成當前的鍵盤輸入。 這種設 置為操作提供了方便,您不必每次先刪除原來的文本;但也可能會導致誤刪文本。將 AutoSelect 屬性設置成 False ,這種替代功能就被取消了。MaskEdit 是格式文本輸入對象。它的 EditMask 屬性為它提供了過濾

14、文本的格式。點動這一 屬性的省略按鈕,會彈出過濾編輯對話框,除了 Delphi 為您提供的幾種屏蔽格式,您也可 以自己編寫,查閱 “ 幫助 ” ,會為您提供更詳細的用法介紹。Memo 是備注框,與以上對象不同的是,它可以接收多行文本輸入。將 ScrollBars 設置 成 ssV ertical , 可以為它加上一個垂直的滾行條。 Align 屬性調整該對象在窗口中的對齊情況, 有 alNone(無對齊指定 、 alBottom(底部對齊 、 alClient(全窗口顯示 等可以選擇; 而 Alignment 屬性則決定了文本在框中的對齊顯示格式。 Lines 屬性訪問的文本被存儲在一個 TS

15、trings 對 象中, 按動它的省略按鈕, 可以通過對話框向它增加文本, 也可以用程序對這一屬性進行操 作,以達到修改或增加備注文本的目的。List Box(列表框 和 Combo Box(組合框 都顯示列表項目, 所不同的是組合框占用較少的 空間。常見的 Windows 操作系統中,顯示可用磁盤驅動器時,用的就是組合框。列表框則 提供了一個項目列表以供選擇,如 Windows 打開文件操作時顯示文件列表的就是 List Box。下列程序段將 Edit1的文本加入到 ListBox1中,并清空 Edit1中的文本:procedure TForm1.AddButtonClick(Sender:

16、TObject;beginEdit1.Text := ;end;常見的組合框初始化用以下的語句可以實現, 它用下拉式列表框的第一項來初始化組合框的 缺省值:procedure TForm1.ComboBox1Text(Sender:TObject;beginif ComboBox1.Text = thenend;以上就是文本輸入的基本部件。按鈕是 Windows 常用的部件, 前文的例程中我們已經基本掌握了 Button 和 BitBtn 的主 要用法。 它們一般用在對話框中, 做為執行某種功能的指示。 您也可以為它們設置內置返回 功能,將 ModelResult 屬性加以匹配,可以不用編程,

17、直接實現系統內置的功能,這一點上 和 Kind 屬性頗類似。Speed Button(加速按鈕 部件在 Additional 頁上, 是進行工具條快速設計的理想部件。 它 只有一個位圖, 沒有標題。 需要提起讀者注意的是, 用多個 Speed Button制作一個工具條時, 必須先放置一個窗口類部件,如 Panel(操作板 、 Group Box(群組框 等。否則試圖將加速按 鈕先制作好再移上去, 您會發現它會總是處于窗口類部件下面不可見。 當然, 您可以對加速 按鈕進行復制、粘貼到窗口類部件上處理,那就另當別論了。Check Box(檢查框 和 Radio Button(無線按鈕 部件通常是相提并論的,多用作接收用戶 “ 是 ” 或 “ 否 ” 的輸入判別。它們一般都是成組的放置在 Radio Group或 Group Box部件中。所 不同的是, 成組的 Radio Button是 “ 互鎖 ” 的, 用戶選擇定一個后, 其它的將自動設置為不選; 而 Check Box部件則是分立的,您可以同時選中其中的幾個,也可以一個都不選。Group Box(群組框 、 Radio Group(選項按鈕組 部件都可以將部件分類、 成組。 它們都有 標題,可以用文字表征成組部件的標題或信息。 Rad