Delphi標準控件-編輯框（Edit）

Delphi標準控件-編輯框（Edit）

來源：洪恩在線 作者：

<script src="/js1/300.js"></script> <SCRIPT src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type=text/javascript> </SCRIPT> <script> window.google_render_ad(); </script>

　　

       編輯框也是Windows程序中常用的組件，它主要用於輸入單行文字。下面解釋編輯框一些常用屬性。

　　Edit常用的幾個事件爲：OnChange、OnKeyPress、OnEnter事件，下面對它們做簡單的介紹：

　　上邊介紹的三個編輯框事件非常有用，在Delphi編程中經常用到。使用這三個事件，可以實現一些很有用的功能：

 

屬性	說明
PasswordChar	這個屬性在一些編輯框組件如TMaskEdit、TDBEdit中都有。缺省時   該屬性爲#0，即沒有掩碼。用戶可以自己設置一個掩碼，如‘*’，   則用戶在編輯框中輸入的字符都將以‘*’字符顯示，而隱藏真實的   字符。
AutoSize	確定編輯框是否隨字體變化而自動變動尺寸，缺省爲True
Text	該屬性用於顯示和保存編輯框中的字符串
MaxLength	確定編輯框最多可以輸入的字符數，缺省時爲0，表示可以輸入任意   多的字符
ReadOnly	確定程序運行時，用戶是否可以改變編輯框中的內容。若爲True，   表示不可以編輯。
AutoSelect	確定當編輯框獲得輸入焦點時，編輯框中的文字是否自動被選中

 

 

事件	說明
OnChange	當編輯框中的內容發生變化時，觸發該事件，它是Edit中最常用，也是   最有用的事件之一
OnKeyPress	當按下一個按鍵時，觸發該事件
OnEnter	編輯框獲得輸入焦點時，觸發該事件

　　

１.使用OnEnter事件，可以在編輯框獲得輸入焦點時，給出提示或觸發其它事件。下面的實例在

 

編輯框Edit1獲得輸入焦點時給出一個提示信息，並使將Button1失效。

 

　　procedure TForm1.Edit1Enter(Sender: TObject);
　　 begin
　　 showmessage('請輸入您的密碼');
　　 Button1.Enabled:=False;
　　 end;

　　2.使用OnKeyPress事件，可以限制在編輯框中輸入的字符的種類。下面的例子限制了編輯框Edit1中只能輸入數字，而不能輸入其它的字符。若按下非數字按鍵，將發出蜂鳴聲。

　　procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
　　 begin
　　 if not(key in['0'..'9',#8]）then
　　　 begin
　　　　 key:=#0;
　　　　 MessageBeep(-1);
　　　 end;
　　 end;

　　在上邊的例程中，Key爲按下的字符，使用not方法來判斷輸入的字符是否爲數字（０至９）或者是刪除鍵＃8（注意不要連刪除鍵也屏蔽）。如果是非數字輸入，使用語句“Key:=#0”將其屏蔽，#0爲空，表示沒有輸入。

　　3.使用OnChange事件，可以在編輯框中的內容發生某種變化時，觸發其它事件，如使按鈕生效或失效，讓輸入焦點轉移到某個控件上。下面的例程在編輯框Edit1中的內容爲‘123456’時，使Button1生效，同時將輸入焦點轉移到Button1上。

　　procedure TForm1.Edit1Change(Sender: TObject);
　　 begin
　　　 if Edit1.Text='123456' then
　　　　　 begin
　　　　　　 button1.Enabled:=true;
　　　　　　 Form1.FocusControl(button1);
　　　　　 end;
　　 end;

　　下面我們將使用Edit控件的這些特性編寫一個簡單的“身份驗證”程序，程序中使用了兩個Label、兩個Edit和兩個BitBtn控件。其中Edit1、Edit2的MaxLength屬性值都爲６，Edit2的PasswordChar爲‘*’；另外Edit1限制了輸入，只接收數字。

　　當用戶在Edit1中輸入６個數字後，輸入焦點自動跳到Edit2中；當確認Edit１和Edit２中的學號和密碼輸入正確（學號爲950755，密碼爲123456），Ok按鈕被激活，並獲得輸入焦點。程序界面如下圖所示：

　　 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.BitBtn2Click(Sender: TObject); begin close;　　//關閉窗體 end; procedure TForm1.FormCreate(Sender: TObject); begin Edit1.text:=''; //創建窗體時，讓編輯框爲空 Edit2.text:=''; BitBtn1.Enabled:=false; end; procedure TForm1.Edit1Change(Sender: TObject); begin //當編輯框Edit1中爲6個字符時，輸入焦點跳到Edit2 if length(edit1.Text)=6 then form1.FocusControl(Edit2); end; procedure TForm1.Edit2Change(Sender: TObject); begin //如果兩個編輯框中的輸入是正確的，Ok按鈕被被激活並獲得輸入焦點 if (Edit2.Text='123456') and (Edit1.Text='950755') then begin bitbtn1.Enabled:=true; form1.FocusControl(bitBtn1); end; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin showmessage('您通過了身份驗證。'); close; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin　　//限制編輯框的輸入，只接收數字 if not (key in['0'..'9',#8])then begin key:=#0; messagebeep(1); end; end; end.

程序下載