第5章实验.doc

第5章实验一：设计由按钮类组件实现的功能窗体1. 实验目的：熟悉delphi中按钮型组件的使用，锻炼代码编写2. 实验要求：按要求设计一窗体，并实现其功能3. 实验示例设计一点菜窗口，用户只能在“龙虾，青蟹，鲍鱼”中选择一项，对佐料“酱油，芥末，醋”中任意选择，提交后生成选择内容的文本。（1） 新建一个窗体（2） 添加组件及设置组件属性如下：组件属性属性值组件属性属性值Edit1textnilForm1Caption按钮组件练习Radiogroup1caption海鲜Groupbox1Caption佐料items龙虾Checkbox1Caption酱油青蟹Checkbox2Caption芥末鲍鱼Checkbox3Caption醋Button1caption提交Button2caption关闭 （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）添加组件并设置组件属性组件属性属性值Edit1textNilGroupbox1Caption侯选城市Checkbox1Caption北京Checkbox2Caption上海Checkbox3Caption深圳Checkbox4Caption广州Checkbox5Caption武汉Checkbox6Caption南京Radilgroup1Items1，2，3，4Button1Caption提交Button2caption退出 （3）添加事件代码 procedure TForm1.CheckBox1Click(Sender: TObject);begin if checkbox1.Checked then CheckNum:=CheckNum+1 else CheckNum:=CheckNum-1; if RadioGroup1.ItemIndex +1CheckNum then 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 +1CheckNum then 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 +1CheckNum then 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 +1CheckNum then 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 +1CheckNum then 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上海Button2Caption深圳Button3Caption广州Button4Caption0 then button2.Enabled :=true else button2.Enabled :=false; if listbox2.Count 0 then button5.Enabled :=true else button5.Enabled :=false; if listbox1.selCount 0 then button3.Enabled :=true else button3.Enabled :=false; if listbox2.selCount 0 then button4.Enabled :=true else button4.Enabled :=false; button6.Enabled :=false; for i:=1 to listbox2.Count -1 do if listbox2.Selected i then begin button6.Enabled :=true; break; end; button7.Enabled :=false; for i:=0 to listbox2.Count -2 do if listbox2.Selected i then begin button7.Enabled :=true; break; end; end;procedure TForm1.Button1Click(Sender: TObject);beginfor i:=0 to listbox1.Items.Count -1 do begin listbox2.Items.Add(listbox1.Items .Strings i); end;for i:=listbox1.Items.Count -1 downto 0 do listbox1.Items.Delete(i); showbtnen;end;procedure TForm1.Button2Click(Sender: TObject);var item:integer;beginfor item:=0 to listbox1.Items.Count -1 do if listbox1.Selected item then begin listbox2.Items.Add(listbox1.Items.Strings item); listbox1.Items.Delete(item); break; end; showbtnen;end;四：按需求将各种组件灵活组合，实现窗体功能 1 实验目的：熟悉delphi中列表型组件的使用，锻炼代码编写2 实验要求：按要求设计一窗体，并实现其功能3 实验示例根据3个scrollbar的值设置panel的颜色，色板二字始终与panel反色，将“永”字的颜色按panel的颜色设置（1） 新建一窗体（2） 添加组件及设置组件属性组件属性属性值Label1Caption红Label2Caption绿Label3Caption蓝Label4Caption步长Label5Caption永Scrollbar1Max255Scrollbar2Max255Scrollbar3Max255Trackbar1Max1Panel1FontButton1CaptionOkButton2captioncancel(3)编写事件代码procedure TForm1.ScrollBar1Change(Sender: TObject);beginLabel1.Caption:=Label1.Caption+inttostr(ScrollBar1.position);Panel1.Color:=rgb(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);Panel1.Font.Color:=rgb(255-ScrollBar1.Position,255-ScrollBar2.Position,255-ScrollBar3.Position);end;procedure TForm1.ScrollBar2Change(Sender: TObject);begin Label2.Caption:=Label2.Caption+inttostr(ScrollBar1.position);Panel1.Color:=rgb(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);Panel1.Font.Color:=rgb(255-ScrollBar1.Position,255-ScrollBar2.Position,255-ScrollBar3.Position);end;procedure TForm1.ScrollBar3Change(Sender: TObject);begin Label3.Caption:=Label3.Caption+inttostr(ScrollBar1.position);Panel1.Color:=rgb(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);Panel1.Font.Color:=rgb(255-ScrollBar1.Position,255-ScrollBar2.Position,255-ScrollBar3.Position);end;procedure TForm1.BitBtn1Click(Sender: TObject);beginlabel5.Font.Color:=panel1.Color;end;procedure TForm1.BitBtn2Click(Sender: TObject);beginclose;end;procedure TForm1.TrackBar1Change(Sender: TObject);beginScrollBar1.LargeChange:=TrackBar1.Position;ScrollBar2.LargeChange:=TrackBar1.Position;ScrollBar3.LargeChange:=TrackBar1.Position;end;end.五：制作一个简单计算器 1 实验目的：熟悉delphi中列表型组件的使用，锻炼代码编写2 实验要求：按要求设计一窗体，并实现其功能3 实验示例（1） 新建一窗体（2） 添加组件及设置组件属性1. 将18个SpeedButton按钮的Name属性分别设置为SBtn0、SBtn1、SBtn2、SBtn3、SBtn4、SBtn5、SBtn6、SBtn7、SBtn8、SBtn9、SBtnAdd、SBtnSub、SBtnMul、SBtnDiv、SBtnEqual、SBtnSymbol。2. SBtn0至SBtn9用于向编辑框输入1、2、3、4、5、6、7、8、9、0数字信息。将它们的Caption属性分别设置为1、2、3、4、5、6、7、8、9、0。3. SBtnEqual用于计算结果。将它的Caption设置为“=”。4. SBtnAdd、SBtnSub、SBtnMul、SBtnDiv用于向计算器提供计算方式和第一个计算数。将它们的Caption属性分别设置为、。5. 2个BitBtn按钮的Name属性分别为BitBtnClear、BitBtnClose。BitBtnClear按钮用于清除编辑框，BitBtnClose按钮用于提供系统。设计后的窗体界面如图5-18所示。（3） 添加事件代码var Form1: TForm1; temp:real; flag:integer;implementation$R *.dfm/清除编辑框框的内容procedure TForm1.BitBtnClearClick(Sender: TObject);begin self.Edit1.Clear;end;/退出程序procedure TForm1.BitBtnQuitClick(Sender: TObject);begin self.Close;end;procedure TForm1.SBtn0Click(Sender: TObject);begin self.Edit1.Text:=self.Edit1.Text+0;end;procedure TForm1.SBtn1Click(Sender: TObject);begin self.Edit1.Text:=self.Edit1.Text+1;end;procedure TForm1.SBtn2Click(Sender: TObject);begin self.Edit1.Text:=self.Edit1.Text+2;end;procedure TForm1.SBtn3Click(Sender: TObject);begin self.Edit1.Text:=self.Edit1.Text+3;end;procedure TForm1.SBtn4Click(Sender: TObject);begin self.Edit1.Text:=self.Edit1.Text+4;end;procedure TForm1.SBtn5Click(Sender: TObject);begin self.Edit1.Text:=self.Edit1.Text+5;end;procedure TForm1.SBtn6Click(Sender: TObject);begin self.Edit1.Text:=self.Edit1.Text+6;end;procedure TForm1.SBtn7Click(Sender: TObject);begin self.Edit1.Text:=self.Edit1.Text+7;end;procedure TForm1.SBtn8Click(Sender: TObject);begin self.Edit1.Text:=self.Edit1.Text+8;end;procedure TForm1.SBtn9Click(Sender: TObject);begin self.Edit1.Text:=self.Edit1.Text+9;end;procedure TForm1.SBtnAddClick(Sender: TObject);begin flag:=1; /标识为加法 temp:=strtofloat(self.Edit1.Text); self.Edit1.C