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

转载 2004年06月30日 15:47:00
?

單元二、基本的windows程式

 

Image21.gif



Image22.gif

2.1 選單製作

 

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

 

  • 加入選項的方法:(以製作檔案選單為例)
  1. 輸入選單的名稱:於Caption處填入『檔案(&F)』,將特性Name處改為「miFile1」。
  2. 接著點選選單設計工具中檔案下方的新方塊,於
Caption處填入『開新Image23.gif檔案(&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…」。我們可以先插入樣版中的選項後,再增減選項來符合我們的需要。

Image24.gif

 

  • 製作其他選單
  • 檔案選單右邊加編輯選單。在選單設計工具中,按滑鼠右鍵,選「
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特性中。 Image25.gifCutCopyPaste這三個ButtonEnabled特性設成False

 

 

2.3 製作狀態列

 

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

 

Image26.gif

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

 

 

2.4 回應Windows的事件

 

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

選取要處理的元件。

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

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

 

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會列出一個方塊顯示這個物件所有的特性、方法和事件。

Image27.gif

 

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

 

 

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

Image29.gif

 

SQL語法--Unicode長度的取得

http://mindy521.blogspot.hk/search/label/SQL%E8%AA%9E%E6%B3%95%E5%AF%A6%E4%BE%8B%E5%88%86%E4%BA%AB ...
  • meng_cheng_hi
  • meng_cheng_hi
  • 2015年10月21日 13:39
  • 232

阿里实习生内推电面总结

本来没想投阿里的实习生内推,一是因为在杭州,离学校太远了,二来感觉自己现在火候还不到,毕竟很多学过的东东都忘了,还没怎么来得及回顾,项目方面的东西也没有系统地去梳理,很多地方也记不太清了。而且五月份毕...
  • mmc_maodun
  • mmc_maodun
  • 2014年03月09日 07:52
  • 12955

《基于CUDA的并行程序设计》学习笔记(三)——中

第3章 CUDA编程基础3.3 CUDA编程模型CUDA架构第一次引入了主机(host)端与设备(device)端的概念。如下图所示,一个完整的CUDA程序由主机代码和设备代码两部分组成。主机代码在主...
  • manong_wxd
  • manong_wxd
  • 2017年11月25日 11:40
  • 106

透過NPOI匯入資料(VB.NET)

Posted on 2010年10月11日 下午 06:46 | 我要推薦 Dotblogs 的標籤:VB.NET ,NPOI ,隨手記 ,Excel 透過NPOI匯入/匯出E...
  • qq2644375193
  • qq2644375193
  • 2013年03月17日 16:08
  • 935

Delphi APP 開發入門(一)重生的 Delphi

簡介 Delphi算是開發工具界的老將,從1995年以VCL(Visual Component Library)可視元件架構搭配視覺化開發環境開始嶄露頭角。而在Windows98問世後,推出成熟穩定...
  • superlevin
  • superlevin
  • 2014年05月07日 18:24
  • 682

一个简单额Python MVC框架(3)

MVC中的M已经介绍完了,C和V都是用户代码,先看几个工具类:A)全局变量类,用户定义全局变量和一个用于产生普通对象的类型:gl_A=1 gl_B='a' class Obj: def __i...
  • hawksoft
  • hawksoft
  • 2015年03月28日 16:54
  • 1761

取得資料表的Schema

過去如果我們要取得資料表的Schema,我們可以透過下列方式處理: 1. 透過SQL Server內建的Store Procedure - 使用GridView顯示Sql資料庫的Table ...
  • ymtianyu
  • ymtianyu
  • 2013年05月30日 20:26
  • 620

Java初学者入门指南

跟其他语言相比,大家或许会觉得Java很难,因为Java一开始给人的感觉就不是平易近人和蔼可亲的,甚至对于从未接触过Java的人而言,Java是非常难上手的。其实,完全是一种偏见,Java的入手,可以...
  • u010619705
  • u010619705
  • 2013年05月29日 11:45
  • 481

PL/SQL基础语法入门

先前安装了PL/SQL软件 PL/SQL全称为Procedural Language/SQL。 PL/SQL也是一种程序语言,叫做过程化SQL语言,是Oracle数据库对SQL语句...
  • chance2015
  • chance2015
  • 2015年12月26日 18:20
  • 2260

Mybatis入門實例

一 工程目錄結構
  • jungle0127
  • jungle0127
  • 2014年05月18日 00:43
  • 368
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:zt:delphi入門級資料: 2 基本windows程式
举报原因:
原因补充:

(最多只允许输入30个字)