《Delphi程序设计》-说明-1

项目——编辑、显示个人信息项目说明利用GroupBox，CheckBox，Edit和Label等组件，编辑、显示个人信息选项。如图所示，如果在复选框内选中某人的【姓名】、【性别】、【年龄】或【电话】等选项之一，在相应编辑框输入信息之后，单击【显示】按钮，则所有被选中选项信息将显示在一个Label标签上。项目分析窗体上置入的组件：1、在空白窗体中首先置入一个GroupBox组件2、将4个CheckBox复选组件放入这个GroupBox组件，这4个CheckBox组件分别表示【姓名】、【性别】、【年龄】和【电话】选项。3、在窗体上放入4个Edit编辑框，用于编辑相应选项的内容4、放入2个Button按钮，用于建立单击事件过程【显示信息】【清除】5、放入1个Label标签，用于显示各Edit编辑框的内容。6、一个UpDown加减组件，用于调整输入的年龄，在运行期就可以通过单击UpDown加减组件的两个箭头按钮来改变Edit组件显示的整数值。项目中的事件：4个CheckBox公用事件Button1Click，用来控制各个选项对应的Edit是否课件【显示信息】按钮单击事件，用来显示Edit的内容【清除】按钮单击事件，用来清除Label和Edit中的内容编程实现设置用户界面，设置对象属性选择组件模板的【Standard】选项卡，向窗体中加入一个GroupBox组件按，4个CheckBox组件，4个Edit编辑框，2个按钮，1Label个标签；在【Win32】选项卡上选择UpDown加减组件，设置如下图所示各组件主要属性设置如表所示对象名称CaptionVisibleTextAssociateGroupBox1个人信息选项CheckBox1姓名CheckBox2性别CheckBox3年龄CheckBox4电话Edit1False设为空Edit2False设为空Edit3False设为空Edit4False设为空Button1显示信息Button2清除Label1显示信息UpDown1Edit3二、代码实现(实际代码)unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls,ComCtrls;typeTForm1=class(TForm)GroupBox1:TGroupBox;Button1:TButton;Button2:TButton;CheckBox1:TCheckBox;CheckBox2:TCheckBox;CheckBox3:TCheckBox;CheckBox4:TCheckBox;Edit1:TEdit;Edit2:TEdit;Edit3:TEdit;Edit4:TEdit;Label1:TLabel;UpDown1:TUpDown;procedureCheckBox1Click(Sender:TObject);procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*.dfm}procedureTForm1.CheckBox1Click(Sender:TObject);begincase(senderastcheckbox).Tagof0:edit1.Visible:=checkbox1.Checked;1:edit2.Visible:=checkbox2.Checked;2:beginedit3.Visible:=checkbox3.Checked;updown1.Visible:=checkbox3.Checked;end;3:edit4.Visible:=checkbox4.Checked;end;end;procedureTForm1.Button1Click(Sender:TObject);vars:string;begins:='';ifcheckbox1.Checkedthens:=s+'姓名：'+edit1.Text+#13;ifcheckbox2.Checkedthens:=s+'性别：'+edit2.Text+#13;ifcheckbox3.Checkedthens:=s+'年龄：'+edit3.Text+#13;ifcheckbox4.Checkedthens:=s+'电话：'+edit4.Text+#13;label1.Caption:=s;end;procedureTForm1.Button2Click(Sender:TObject);beginlabel1.Caption:='显示信息';checkbox1.Checked:=false;checkbox2.Checked:=false;checkbox3.Checked:=false;checkbox4.Checked:=false;end;end.学习支持GroupBox组件1、在Windows界面设计中，常常将一组相关的控件放在一个“容器”组件中，使它们表现出整体性。制作复选框与单选框就是将GroupBox组件作为容器使用，在其中分别置入一组CheckBox组件或一组RadioButton组件。2、要在窗体上建立一个GroupBox组件，只需在组件模板的【Standard】选项卡上选中GroupBox组件按钮，然后在窗体的适当位置单击鼠标左键，便完成一个GroupBox组件的建立。3、GroupBox组件具有控件的所有基本属性。它最主要的属性是有一个总标题，可通过Caption属性进行设置。4、制作复选框与单选框的优点主要有：将同一性质的选项按钮集中在一个GroupBox内，可以使程序操作更加方便。多组选项按钮分别置于不同的GroupBox内，彼此互相独立，可以使窗体画面整齐而有条理。当移动或者删除GroupBox时，在框内的各子控件也会随之被移动或者删除，免除多次调整位置的麻烦。5、制作复选框所谓复选框就是以GroupBox组件作为容器，在其中置入一组CheckBox组件。从复选框的上述定义来看，制作复选框是容易的。但是从操作上考虑，要对齐已经置入到GroupBox组件的一组CheckBox组件，往往是困难的。建议采用下列方法制作复选框：1、先将一组CheckBox组件置入窗体，然后用指针组件把这组组件框起来，用【View】→【AlignmentPalette】菜单命令打开【Align】对话框，进行对齐操作，特别是水平等距分配或竖直等距分配。2、再次用指针组件把这组组件框起来，并将它们移到窗体左上角，剪切到剪贴板。3、最后将GroupBox组件置入窗体，再将剪贴板保存的组件粘贴到这个容器组件中。CheckBox组件（复选按钮）CheckBox组件可以直观地表示某个选项被选中还是没有被选中。每个CheckBox组件由一段文字和一个小方框组成。用鼠标单击CheckBox组件的小方框，无论是从未选中到选中还是从选中到未选中，都会触发一个OnClick事件。CheckBox组件常用属性Alignment设置复选框的文字与小方框的位置关系。taLeftJustify，文字在小方框左边；taRightJustify文字在小方框右边AllowGrayed复选框有三种不同状态：选中、未选中、选中但变灰Checked设置或返回复选框是否被选中State设置或返回复选框的状态UpDown一个UpDown加减组件，在组件模板的【Win32】选项卡上选中【UpDown】图标，然后在窗体上适当位