Inno Setup入門（十八）——Inno Setup類參考（4）

阿新 • • 發佈：2019-02-08

編輯框

編輯框也叫文字框，是典型的視窗視覺化元件，既可以用來輸入文字，也可以用來顯示文字，是程式設計中最常用的元件之一，可以獲取使用者輸入的許多資訊。Pascal中的編輯框由類Tedit實現，該類的定義如下：

TEdit = class(TCustomEdit)

property AutoSelect: Boolean; read write;

property AutoSize: Boolean; read write;

property BorderStyle: TBorderStyle; read write;

property CharCase: TEditCharCase; read write;

property Color: TColor; read write;

property Font: TFont; read write;

property HideSelection: Boolean; read write;

property MaxLength: Integer; read write;

property PasswordChar: Char; read write;

property ReadOnly: Boolean; read write;

property Text: String; read write;

property OnChange: TNotifyEvent; read write;

property OnClick: TNotifyEvent; read write;

property OnDblClick: TNotifyEvent; read write;

property OnKeyDown: TKeyEvent; read write;

property OnKeyPress: TKeyPressEvent; read write;

property OnKeyUp: TKeyEvent; read write;

end;

該類的層次模型如下：

下面的程式碼將演示建立編輯框，以及編輯框的Text屬性：

[setup]

AppName=Test

AppVerName=TEST

DefaultDirName="E:\TEST"

AppVersion=1.0

[files]

Source: "F:\desktop\Inno\ipmsg.exe";Flags:dontcopy

[code]

var

myPage:TwizardPage;

myBtn:TButton;

ed1,ed2,ed3:TEdit;

procedure ClickmyBtn(Sender: TObject);

begin

ed3.Text:=ed1.Text+' '+ed2.Text;

end;

procedure InitializeWizard();

begin

myPage:=CreateCustomPage(wpWelcome, '標題：自定義頁面', '描述：這是我的自定義頁面');

myBtn:=TButton.Create(myPage);

myBtn.Parent:=myPage.Surface;

myBtn.Caption:='點我~';

myBtn.OnClick:[email protected];

ed1:=TEdit.Create(myPage);

ed1.Parent:=myPage.Surface;

ed1.Top:=myBtn.Top+30;

ed1.Width:=myBtn.Width;

ed2:=TEdit.Create(myPage);

ed2.Parent:=myPage.Surface;

ed2.Top:=ed1.Top+30;

ed2.Width:=myBtn.Width;

ed3:=TEdit.Create(myPage);

ed3.Parent:=myPage.Surface;

ed3.Top:=ed2.Top+30;

ed3.Width:=myBtn.Width;

end;

屬性Text用於設定或獲取文字框中的內容，注意不管是設定還是獲取，引數一定必須是String的型別，執行效果如下：

如果是想實現兩個數的代數運算，而不是字串的拼接，則按鈕的OnClick過程應該做如下修改：

procedure ClickmyBtn(Sender: TObject);

var

a,b:Extended;

begin

a:=StrToFloat(ed1.Text);

b:=StrToFloat(ed2.Text);

ed3.Text:=FloatToStr(a+b);

end;

StrToFloat和FloatToStr分別實現字串轉實數，實數轉字串。在第一、第二個文字框中輸入數值後，點選按鈕將第三個文字框中的內容設定為兩數的和。下面再說說其他的屬性。修改程式碼段如下：

[code]

var

myPage:TwizardPage;

myBtn:TButton;

ed1,ed2,ed3:TEdit;

a,b,c:String;

procedure ClickmyBtn(Sender: TObject);

begin

a:=ed1.Text;

b:=ed2.Text;

c:=a+b;

ed3.Text:=c;

end;

procedure InitializeWizard();

begin

myPage:=CreateCustomPage(wpWelcome, '標題：自定義頁面', '描述：這是我的自定義頁面');

myBtn:=TButton.Create(myPage);

myBtn.Parent:=myPage.Surface;

myBtn.Caption:='點我~';

myBtn.OnClick:[email protected];

ed1:=TEdit.Create(myPage);

ed1.Parent:=myPage.Surface;

ed1.Top:=myBtn.Top+30;

ed1.Width:=myBtn.Width;

ed1.CharCase:=ecUpperCase;{大寫}

ed1.ShowHint:=True;

ed1.Hint:='字母將會變為大寫';

ed2:=TEdit.Create(myPage);

ed2.Parent:=myPage.Surface;

ed2.Top:=ed1.Top+30;

ed2.Width:=myBtn.Width;

ed2.PasswordChar:='#';{密碼樣式}

ed3:=TEdit.Create(myPage);

ed3.Parent:=myPage.Surface;

ed3.Top:=ed2.Top+30;

ed3.Width:=myBtn.Width*2;

ed3.ReadOnly:=true;{只讀}

end;

上面介紹了四個屬性：CharCase將設定文字顯示的格式，可以有三個值：(ecNormal, ecUpperCase, ecLowerCase，分別為正常方式，大寫方式，小寫方式；PasswordChar屬性將輸入的文字替換為制定的樣式；ReadOnly屬性將使得該文字框不接受使用者輸入；Hint和ShowHint屬性是使用者的滑鼠停留在該文字框上時，給出相應的提示文字，注意只有在ShowHint設定為True的時候才會顯示。

另外，編輯框也能對一些事件做出相應，例如單擊、雙擊，文字內容發生變化等，實現起來和按鈕的差不錯，這裡就不再囉嗦了。最後需要介紹的是三個處理按鍵的屬性： OnKeyDown、OnKeyPress和OnKeyUp

這三個屬性是當用戶游標停留在該文字框中時，當用戶按下了鍵盤上的某個鍵時，會呼叫該屬性指定的過程，測試程式碼如下：

[code]

var

myPage:TwizardPage;

ed:TEdit;

procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

if (key=67) and (Shift=[ssAlt]) then

Msgbox('你按下了Alt+c',MBInformation,MB_OK);

end;

procedure InitializeWizard();

begin

myPage:=CreateCustomPage(wpWelcome, '標題：自定義頁面', '描述：這是我的自定義頁面');

ed:=TEdit.Create(myPage);

ed.Parent:=myPage.Surface;

ed.OnKeyDown:[email protected];

end;

在編輯框中輸入時，使用者按下Alt+C組合時，將會做出響應，彈出一個訊息框，這樣可以對我們感興趣的按鍵組合做出相應的動作，例如我們想遮蔽貼上這項功能，則修改程式碼如下：

procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

if (key=86) and (Shift=[ssCtrl]) then

Msgbox('貼上無效，請手動輸入',MBInformation,MB_OK);

ed.text:='';

end;

不過這裡要說明的是，這還不能遮蔽右鍵貼上，只是遮蔽了Ctrl+V的方式。另外兩個按鍵屬性和這裡介紹的KeyDown差不多，可對照測試一下。

Inno Setup入門（十八）——Inno Setup類參考（4）

Inno Setup入門（十八）——Inno Setup類參考（4）

Inno Setup入門（二十）——Inno Setup類參考（6）

Inno Setup入門（十九）——Inno Setup類參考（5）

Inno Setup入門（二十三）——Inno Setup類參考（9）

Python爬蟲從入門到放棄（十八）之 Scrapy爬取所有知乎用戶信息(上)

Redis入門到高可用（十八）——Redis Sentinel

C語言入門（十八）之指標、字串、函式

java多執行緒快速入門（十八）

java多線程快速入門（十八）

Spring Boot 初級入門教程（十八） —— 整合 MyBatis 另外一種開發方式

python 入門之 – 資料字典（十八）

Golang從入門到精通（十八）：Golang併發程式設計之Goroutine

Unity Shader入門精要筆記（十八）：透明度混合

Python爬蟲從入門到放棄（十八）之 Scrapy爬取所有知乎使用者資訊(上)

Python 爬蟲從入門到進階之路（十八）

Apache Flink 零基礎入門（十八）Flink windows和Time操作

Spring Boot入門系列（十八）整合mybatis，使用註解的方式實現增刪改查

Scala入門到精通——第二十二節高級類型（一）

Python（十八）

Scala入門到精通——第二十四節高級類型（三）

Inno Setup入門（十八）——Inno Setup類參考（4）

相關推薦