浙大远程16年秋数据库应用程序设计离线作业(兼容)

radionbutton1的checked属性变为True,如图所示:Р运行后:Р第二章Р2.8设计如图2-5所示的界面。单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用,单击“退出系统”按钮时,结束程序的运行。Р答:程序主要代码清单如下:Рprocedure TForm1.Button1Click(Sender: TObject);РbeginРlabel1.Caption:='您点击了按钮1!';Рend;Рprocedure TForm1.Button2Click(Sender: TObject);РbeginРlabel1.Caption:='您点击了按钮2!';Рend;Рprocedure TForm1.Button3Click(Sender: TObject);РbeginРlabel1.Caption:=' ';Рend;Рprocedure TForm1.Button4Click(Sender: TObject);РbeginРForm1.Close;Рend;Р2.9 设计如图2-6所示的界面。当单击按钮时,可控制文本框中字体的颜色。Р图2-5 图2-6Р答:程序主要代码清单如下:Рprocedure TForm1.Button1Click(Sender: TObject);РbeginРEdit1.Font.Color:= clred;Рend;Рprocedure TForm1.Button2Click(Sender: TObject);РbeginРEdit1.Font.Color:= clgreen;Рend;Рprocedure TForm1.Button3Click(Sender: TObject);РbeginРEdit1.Font.Color:= clblue;Рend;