7.12按钮类组件(2) 3 SpeedButton加速按钮组件 加速按钮组件位于组件面板的 Additiona标签页,常常被放在 Pane组件上,用于设计工具栏,它和 Bitbtn组件非常相似,也可以 显示图像和文本,但通常只显示图像,它的特殊属性如下。 常用属性与事件: AllowAllUp属性Down属性 Grouplndex属性 Mouselncontro属性 【例7-2】针对上面介绍的内容来编写一个小的程序。目的是熟练按钮的有 关属性和方法,程序本身没有实际意义。 进入 Delphi7.0环境中,设计如图7-3所示窗体。 该窗体上并排添加了三个名为sb1、sb2、Sb3的 IL close SpeedButton按钮、一个名为B1的 Button按钮和 个名为Bb的 BitBtn按钮,分别如下设置它们的属 图7-3按钮类实例 程序 性值 Inprise Dephi
7.1.2 按钮类组件(2) 3. SpeedButton加速按钮组件 加速按钮组件位于组件面板的Additional标签页，常常被放在 Panel组件上，用于设计工具栏，它和Bitbtn组件非常相似，也可以 显示图像和文本，但通常只显示图像，它的特殊属性如下。 常用属性与事件： AllowAllUp属性 Down 属性 GroupIndex属性 MouseIncontrol属性 【例7-2】 针对上面介绍的内容来编写一个小的程序。目的是熟练按钮的有 关属性和方法，程序本身没有实际意义。 进入Delphi 7.0环境中，设计如图7-3所示窗体。 图7-3 按钮类实例 程序 该窗体上并排添加了三个名为sb1、sb2、sb3的 SpeedButton按钮、一个名为B1的Button按钮和一 个名为Bb1的BitBtn按钮，分别如下设置它们的属 性值：
7.12按钮类组件(3) Sb1.GroupIndex: =1; Sb1. Flat: =true Sb1. Hint: =this is a speedbutton Sb1. ShowHint: =true Sb1. AllowAllUp =False Sb2. GroupIndex: =1 Sb3. GroupIndex: =1 B1.caption: =next Bb1 Kind =bkClose 使用 Picture editor分别为sb1~sb3按钮的Gyph属性设置一个对应的位图文 件,这些位图文件分别在deph7.0 Domos\ DoclGraphex目录下,当然,可 以自己选择合适的位图文件 s在B1按钮的 OnClick事件中添加如下代码,注意变量在 implementation之前 应该先给予定义: var i: integer=0 Inprise Dephi
7.1.2 按钮类组件(3) Sb1.GroupIndex:=1; Sb1.Flat:=true; Sb1.Hint:=’this is a speedbutton’; Sb1.ShowHint:=true; Sb1.AllowAllUp:=False; Sb2.GroupIndex:=1; Sb3.GroupIndex:=1; B1.caption:=’next’; Bb1.Kind:=bkClose; 使用Picture Editor分别为sb1~sb3按钮的Glyph属性设置一个对应的位图文 件，这些位图文件分别在delphi 7.0\Domos\Doc\Graphex目录下，当然，可 以自己选择合适的位图文件。 在B1按钮的OnClick事件中添加如下代码，注意i变量在implementation之前 应该先给予定义：var i:integer=0;
712按钮类组件(4) 在B1按钮的 OnClick事件中添加如下代码,注意变量在 Implementation 之前应该先给予定义: var i: integer=0 sb2 down =true procedure TForm1. B1Click(sender :=2: TObject) end begin else if j=2 then if i=0 then begin begin sb3 Down =true sb1. Down =true i:=0 i:=1: end end end else if i=1 then beg ③程序运行过程中,可以通过连续单击nex按钮实现三个 Speed Button的按 下动作,按 Close按钮退出程序。 Inprise Dephi
7.1.2 按钮类组件(4) 在B1按钮的OnClick事件中添加如下代码，注意i变量在implementation 之前应该先给予定义： var i:integer=0; procedure TForm1.B1Click(Sender: TObject); begin if i=0 then begin sb1.Down:=true; i:=1; end else if i=1 then begin 程序运行过程中，可以通过连续单击next按钮实现三个SpeedButton的按 下动作，按Close按钮退出程序。 sb2.down:=true; i:=2; end else if i=2 then begin sb3.Down:=true; i:=0; end end;
72文本类组件的使用 文本类组件是进行界面设置中最常用的组件,本节主要介绍标签组件和 编辑框组件。 7.2.1标签组件 标签组件本身不是窗口,因此已没有窗口句柄,也不会有输入焦点,但 可以把它与标准的组件关联,下面介绍该组件中的一些常用属性。 Alignment,属性、 Autosize厲性、 Focuscoηto/厲性、 Transparent,厲性、 Wordwrap属性、 ShowAcce/chai属性 7.2.2编辑框组件 1.Edit组件 位于组件面板的 Standard标签页,用户可以在其中输入单行文字 或数据,同时可能用于显示信息,下面介绍它的常用属性及主要的事 件和方法 Inprise Dephi
7.2 文本类组件的使用 文本类组件是进行界面设置中最常用的组件，本节主要介绍标签组件和 编辑框组件。 7.2.1 标签组件 标签组件本身不是窗口，因此已没有窗口句柄，也不会有输入焦点，但 可以把它与标准的组件关联，下面介绍该组件中的一些常用属性。 Alignment属性、Autosize 属性、Focuscontrol属性、Transparent属性、 WordWrap属性、ShowAccelChar属性： 7.2.2 编辑框组件 1. Edit组件 位于组件面板的Standard标签页，用户可以在其中输入单行文字 或数据，同时可能用于显示信息，下面介绍它的常用属性及主要的事 件和方法
722编辑框组件(1) Auto select属性、 CarcAse属性、 MaxLeng功属性、 Passwordchar属性、 7ext属性 C/ear方法、 Copy To clipboar方法、Cut7 cLipboard方法 尸 asteFromclipboard方法、 On Change寡件、当编辑框中的内容发生改变 时,将触发这个事件 2.Memo组件 Memo组件位于组件面板 Standard标签页,Memo组件中的 属性和Edt组件存在着许多相似之处。不同的是,Memo组件中 可以显示和编辑多行文本,下面介绍它的常用属性及事件和方法。 Lies属性、 Maxleng属性、ScrO∥Bar属性、 WantRetums属性、 Want Tabs属性、Cea方法、Ada方法、 SelectA∥方法、 Clear Selection方法 Inprise Dephi
7.2.2 编辑框组件(1) AutoSelect 属性、CharCase 属性、MaxLength属性、Passwordchar属性、 Text属性 Clear方法、CopyToClipboard 方法、CutToClipboard 方法 PasteFromClipboard 方法、OnChange 事件、当编辑框中的内容发生改变 时，将触发这个事件。 2. Memo 组件 Memo组件位于组件面板Standard标签页， Memo组件中的 属性和Edit组件存在着许多相似之处。不同的是，Memo组件中 可以显示和编辑多行文本，下面介绍它的常用属性及事件和方法。 Lines属性、Maxlength属性、ScrollBar 属性、WantReturns属性、 WantTabs属性、Clear方法、Add方法、SelectAll 方法、 ClearSelection方法