CSDN博客

img foreveryday007

zt:delphi入門級資料: 2 基本windows程式

发表于2004/6/30 15:47:00  1701人阅读

?

單元二、基本的windows程式

 





2.1 選單製作

 

  • 開啟一個新個專案,選取 File|New Application
  • 加入MainMenu元件。
  • 雙擊MainMenu元件以開啟選單設計工具

 

  • 加入選項的方法:(以製作檔案選單為例)
  1. 輸入選單的名稱:於Caption處填入『檔案(&F)』,將特性Name處改為「miFile1」。
  2. 接著點選選單設計工具中檔案下方的新方塊,於Caption處填入『開新檔案(&N)』,將特性Name處改為「miNew1」。

 

 

 

  • 設計選單時常用的按鍵
  1. Ins鍵:在選單的左側或選項的上方加入一個新的選項。
  2. Del鍵:刪除目前的選項。
  3. Ctrl+Del鍵:刪除一個空白的選項。
  4. Ctrl+→鍵:插入一個新的巢狀選單。

 

 

  • 依上面步驟繼續完成下表的檔案選單。

 

Caption

Name

ShortCut

檔案(&F)

miFile1

 

開新檔案(&N)

miNew1

 

開啟舊檔(&O)

miOpen1

Ctrl+O

儲存檔案(&S)

miSave1

Ctrl+S

另存新檔(&A)

miSaveAs1

Ctrl+A

-

N1

 

列印(&P)

miPrint1

Ctrl+P

印表機設定…(&R)

miPrisntSetup1

 

-

N2

 

結束(&X)

miExit1

Ctrl+X

 

  • 指定加速鍵(Accelerator key):在該快速鍵的字母前加上「&」符號,例如:檔案(&F)
  • 指定快捷鍵(Shortcut):在選項的ShortCut特性中指定按鍵組合。
  • 指定分隔線:在Caption特性中輸入「-」。

 

  • 從樣版中插入選單:按滑鼠右鍵,選「Insert From Template…」。我們可以先插入樣版中的選項後,再增減選項來符合我們的需要。

 

  • 製作其他選單
  • 檔案選單右邊加編輯選單。在選單設計工具中,按滑鼠右鍵,選「Insert From Template…」,然後選「編輯功能表」按OK插入。
  • 編輯選單右邊加檢視選單,並按下表加入兩個選項。

 

Caption

Name

Checked

顯示工具列(&T)

miViewToolsBar

True

顯示狀態列(&S)

miViewStatusBar

True

 

  • 檢視選單右邊加說明選單。
  • 關閉選單設計工具

 

 

2.2 製作工具列

 

2.2.1 傳統方法製作工具列

  • 加入Bevel元件(在Additional頁次或由Alt_VL開啟component list視窗),Align = alTopHeight=4Shape = bsTopLine
  • 加入Panel元件,Align = alTopBevelOut = bvNone,清除Caption
  • 加入ScrollBoxAlign = alClientColor = clWindow
  • 加入8SpeedButton,並按照下表更改其特性。其中Glyph特性所需的BMP檔可以在 Delph 3/Images/Buttons目錄中找到。

 

Name

Left

Top

Enabled

Glyph

sbNew

0

2

True

FILENEW.BMP

sbOPen

25

2

True

FILEOPEN.BMP

sbSave

50

2

True

FILESAVE.BMP

sbCut

85

2

False

CUT.BMP

sbCopy

110

2

False

COPY.BMP

sbPaste

135

2

False

PASTE.BMP

sbPrint

170

2

True

PRINT.BMP

sbHelp

195

2

True

HELP.BMP

 

 

2.2.2 使用工具列元件製作工具列

 

  • 加入ToolBar

 

  • 按鈕共有下面五種,其差別在於Style特性不同。
  1. Button (Style = tbsButton) 一般按鈕。
  2. Separator:不會對滑鼠產生反應。
  3. Divider:類似Separator,用來在按鈕間畫出分隔線。
  4. Check:按下時會停再按下的狀態。
  5. DropDown:按下時會把DropdownMenu所指定的選單顯示出來。

 

  • 按右鍵選New Button來製作按鈕。使用New Button加入三個Button、一個Separator,然後在三個Button、一個Separator,最後在兩個Button
  • 將工具列的Flat特性設成True。(此為新式按鈕的設定,當滑鼠經過按鈕時會自動將匡邊顯示出來)
  • 加入ImageList元件。
  • 雙擊ImageList來啟動ImageList編輯器,將前面八個按鈕的圖像依序加入。。(當編輯器要求將其分成兩個圖檔時,回答要,然後將無作用之圖形刪除)
  • 將此ImageList指定到工具列的Image特性中。
  • CutCopyPaste這三個ButtonEnabled特性設成False

 

 

2.3 製作狀態列

 

  • ScrollBoxAlign改為alNone,將其往上移一點,留出空間給StatusBar用。然後加入StatusBar元件。
  • ScrollBoxAlign回復為alClient

 

  • 物件檢視器中找到StatusBar的Panels,雙擊右側的省略按鈕,將出現一個Status Panels Editor對話方塊。
  • 連續按五次Add按鈕,將第一個區塊的寬度設成250,其餘50,前四個區塊的Text分別設為「Ready」、「Num」、「Cap」和「Scrl」。

 

 

2.4 回應Windows的事件

 

  • 撰寫事件處理程序:先找到該事件相關的物件,然後找到要處理的事件,最後在該事件處加上所要處理的程式碼。步驟如下:

  1. 選取要處理的元件。

  2. Event頁次找到要處理的事件,雙擊右側的特性欄。此時,Delphi將自動產生事件處理程序的頭尾,並在該類別的宣告部份加上一行該處理程序的宣告。

  3. 加入該處理程序的程式碼。

 

2.4.1檔案選單結束選項加上事件處理程序

 

  • 開啟選單設計工具,選取結束的選項。

  • Events頁次選到OnClick事件,雙擊右邊的空白處以產生事件處理程序。

  • 在該程序中加入表格物件的Close方法。

 

Procedure TForm1.Exit1Click(Sender: TObject);

Begin

Close;

end;

 

  • 執行程式。

 

2.4.2檢視選單的事件處理程序

 

  • 選單設計工具中找到檢視選單,雙擊第一個項目『顯示工具列』。

  • 加入下面的程式碼

 

Procedure TForm1.miViewToolsBarClick(Sender: TObject);

Begin

// 反向調整顯示工具列的選項

miViewToolsBar.Checked := not miViewToolsBar.Checked;

// 按所選取的方式, 來決定是否顯示工具列

ToolBar1.Visible := miViewToolsBar.Checked;

End;

 

  • 執行程式,選取檢視|顯示工具列試試。

  • 用同樣的方法為檢視|顯示狀態列加上處理的程式碼。

 

 

2.4.5 Delphi提供的輔助編輯工具:Code Insight

 

  • Code Completion:當輸入物件的名稱後,再輸入句點,稍待一會兒,Delphi會列出一個方塊顯示這個物件所有的特性、方法和事件。

 

  • Code Parameters:在輸入方法的呼叫時,在輸入左括弧後,稍待一會兒,Delphi會列出一個方塊顯示該方法之所有參數及其型態。

 

 

  • Code Template:按Ctrl+j鍵,Delphi會列出所有已經定義好的程式碼樣版。

 

0 0

相关博文

我的热门文章

img
取 消
img