可视化程序设计.docVIP

媒体播放器 1.两个Edit框：Text置为空。 2 System中MediaPlayer组件：FileName置为歌曲的路径， AutoOpen属性置为True。 EnabledButton属性决定组件上的按钮是否可用。 MediaPlayer可以播放AVI格式的视频。 3 System中Timer组件中写入： Edit1.Text:=timetostr(time()); if Edit1.Text= Edit2.Text then Mediaplayer1.play; 4 Button组件：写入 Caption置为闹钟停止 MediaPlayer1.Stop; 5 两个Lable组件分别写现在时间和闹钟时间。 6 Form 中的Caption可以改变Form的窗体标题。 7 Dialogs中的 OpenDialog组件 电话本 1 使用Database Desktop制作数据库文件 ：File-New-Table 设置Field Name，Type中单击右键选择Alpha，Size。 编辑好后用Edit Data添加数据。 添加好数据后必须关上Database Desktop，否则在Delphi中会出错。 2 新建BDE ：Object-New-Ok更改名字 PATH设置为新的DB 格式文件的地址。 PATH中的Drives可也改变磁盘地址 保存后关闭BDE否则在 Delphi中会出错. 3 （1）Table组件：DatabaseName设置为新的BDE TableName设置为DB格式的表的名字 Table1．Open （2）DataSource组件的DataSet属性设置为Table1。 （3）DBGird组件DataSource属性设为DataSource1. ( 4 )DBEdit组件Data Source设为Data Source1， DataField设置为想要查阅字段的名称Name。 （5）Data Control中DBNavigator的Data Source属性置为 Data Source1 计算器 （1）Edit框：Text置为空 （2）Button按钮：数字按钮中写Edit1.Text:=Edit1.Text+1;1~0 清除按钮Edit1.Text:=;小数点Edit1.Text:=Edit1.Text+.; 在implementation前定义变量 x,y:real; a:integer; +：x:=StrToFloat(Edit1.Text); a:=1; Edit1.Text:= ; - : a=2 *: a=3 /: a=4 =按钮： begin case (a) of 1: Edit1.Text:=Floattostr(x+StrToFloat(Edit1.Text)); 2: Edit1.Text:=Floattostr(x-StrToFloat(Edit1.Text)); 3: Edit1.Text:=Floattostr(x*StrToFloat(Edit1.Text)); 4: Edit1.Text:=Floattostr(x/StrToFloat(Edit1.Text)); end; end; end. 记事本(Memo组件：) （1）改变Memo上显示的内容：改变lines属性。 （2）若要在Edit里输入的内容显示到Memo里： 在Button里写程序：Memo1.lines.Add(Edit1.Text); Edit1.Text：=‘’; （3）一按Button就将指定位置(例：D盘里文件名为AAA.txt的文件里的内容读进去)的文件读到Memo里显示出来： 在Button里写程序：Memo1.lines.LoadFromFile(‘D：\AAA.txt’); （4）Memo里输入的内容被保存到指定位置（例：保存到D盘BBB记事本里，若不存在BBB文件则新建一个） 在Button里写程序：Memo1.lines.SavetoFile(‘D：\BBB.txt’); (5)Dialogs里的OpenDialog和SaveDialog组件以及Standard里的Memo，Mainmenu组件。 Mainmenu主要设置功能栏，例如弄成这个样子：文件 编辑 帮助 打开 复制 保存 粘贴