按钮组件的综合应用(2)

《按钮组件的综合应用(2)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、河南机电高等专科学校学生实验报告实验课程名称Delphi程序设计实验项目名称按钮组件的综合应用（2）系、部计科系年级专业班学生姓名学号实验时间总成绩教师签名3一、实验目的1、选择应用程序所需要的按钮组件；2、对选择的按钮组件进行属性设置；3、调用按钮组件的方法；4、编写按钮组件的事件过程；二、实验内容编写程序，利用单选按钮和复选按钮实现文本的字体设置功能。程序界面及功能可参照下图完成。三、实验要求1、做好实验预习，掌握，并熟悉本实验中所使用的按钮组件的常用属性、事件和方法；2、写出实验报告，内容是：①实验目的。②实验内容（要求写出程序

2、的关键代码）。四、实验过程原始记录(数据、图表、计算等)(1)进入Delphi开发环境(2)创建一个新的项目在Delphi集成开发环境中，单击“File”→“New”→“Application”命令，创建一个新的应用程序，Delphi会自动创建项目文件及其他文件。(3)向窗体中添加组件向窗体中添加1个Edit组件（text属性设置为“”）、三个radioGroup组件3（分别命名为字体颜色控制按钮、字体大小控制按钮、字体控制按钮）、一个groupbox组件（字体形态控制按钮）、九个radioboutton组件（分别将它们的captio

3、n属性设置为红色、蓝色、黄色、12、18、20、宋书、黑体、隶书）和三个checkbox组件（分别命名为加粗、倾斜、下划线），编辑窗口界面如下：（4）向各组件添加代码：ProcedureTForm1.botton1click(sender:Toject)；BeginCaseradioGroup1.itemindexof0:Memo1fontcolor:=CLRED;1:Memo10fontcolor:=CLblue;2:Memo10fontcolor:=clyellow;End;BeginCaseradioGroup2.itemind

4、exof0:Memo1fonttype:=CLRED;1:Memo10fonttype:=CLblue;2:Memo10fonttype:=clyellow;End;BeginCaseradioGroup3.itemindexof0:Memo1fontsize:=12;31:Memo10fontsize:=18;2:Memo10fontsize:=20;End;Ifcheckbox1.checked:=turethenMemo1.Font.style:=Memo1.Font.style+[fsBold]Ifcheckbox2.chec

5、ked:=turethenMemo1.Font.style:=Memo1.Font.style+[fsItalic]Ifcheckbox3.checked:=turethenMemo1.Font.style:=Memo1.Font.style+[fsUnderline]end五、实验结果及分析3