欢迎来到天天文库
浏览记录
ID:38253682
大小:101.50 KB
页数:4页
时间:2019-06-06
《按钮组件的综合应用(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
此文档下载收益归作者所有