第5章实验
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第5章实验
一：设计由按钮类组件实现的功能窗体
1.实验目的：
熟悉delphi中按钮型组件的使用，锻炼代码编写
2.实验要求：
按要求设计一窗体，并实现其功能
3.实验示例
设计一点菜窗口，用户只能在“龙虾，青蟹，鲍鱼”中选择一项，对佐料“酱油，芥末，醋”中任意选择，提交后生成选择内容的文本。
（1）新建一个窗体
（2）添加组件及设置组件属性如下：
（3）编写组件事件代码
Procedure Tform1.button1click(sender:Tobject);
Var choice:string;
Begin
If radiogroup1.itemindex<>-1 then
Begin
Case radiogroup1.itemindex of
0:choice:=’龙虾’;
1.:choice:=’青蟹’;
2.:choice:=’鲍鱼’;
End;
Edit1.text:=’你选择了’+choice;
If checkbox1.checked then edit1.text:=edit1.text+’`酱油’;
If checkbox2.checked then edit1.text:=edit1.text+’`芥末’;
If checkbox3.checked then edit1.text:=edit1.text+’`醋’;
End
Else
Edit1.text:=’你没有点任何海鲜’;
End;
(4)保存程序
（5）运行程序
二：设计一个表决器，表决器中有6个侯选项（北京，上海，深圳，广州，武汉，南京），单选按钮有1，2，3，4，当选择3时，只能选择3个侯选城市，通过程序自动限制复选框的选择数量，提交后将选择的城市显示在编辑框中
1.实验目的：
熟悉delphi中按钮型组件的使用，锻炼代码编写
2.实验要求：
按要求设计一窗体，并实现其功能
3.实验示例
（1）新建一窗体
（2）添加组件并设置组件属性
（3）添加事件代码
procedure TForm1.CheckBox1Click(Sender: TObject); begin
if checkbox1.Checked then
CheckNum:=CheckNum+1
else
CheckNum:=CheckNum-1;
if RadioGroup1.ItemIndex +1 begin checkbox1.Checked :=false; end; end; procedure TForm1.CheckBox2Click(Sender: TObject); begin if checkbox2.Checked then CheckNum:=CheckNum+1 else CheckNum:=CheckNum-1; if RadioGroup1.ItemIndex +1 begin checkbox2.Checked :=false; end; end; procedure TForm1.CheckBox3Click(Sender: TObject); begin if checkbox3.Checked then CheckNum:=CheckNum+1 else CheckNum:=CheckNum-1; if RadioGroup1.ItemIndex +1 begin checkbox3.Checked :=false; end; end; procedure TForm1.CheckBox4Click(Sender: TObject); begin if checkbox4.Checked then CheckNum:=CheckNum+1 else CheckNum:=CheckNum-1; if RadioGroup1.ItemIndex +1 begin checkbox4.Checked :=false; end; end; procedure TForm1.CheckBox5Click(Sender: TObject); begin if checkbox5.Checked then CheckNum:=CheckNum+1 else CheckNum:=CheckNum-1; if RadioGroup1.ItemIndex +1 begin checkbox5.Checked :=false; end; end; procedure TForm1.CheckBox6Click(Sender: TObject); begin if checkbox6.Checked then CheckNum:=CheckNum+1 else CheckNum:=CheckNum-1; if RadioGroup1.ItemIndex +1 begin checkbox6.Checked :=false; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if checkbox1.Checked then Edit1.Text :=Edit1.Text +Checkbox1.Caption+'、'; if checkbox2.Checked then Edit1.Text :=Edit1.Text +Checkbox2.Caption+'、'; if checkbox3.Checked then Edit1.Text :=Edit1.Text +Checkbox3.Caption+'、'; if checkbox4.Checked then