.Strings[0] := '爱好:' + 爱好: 爱好 ? copy(s,0,length(s)-2); ? // 或 memo1.Lines.add( '爱好:' + copy(s,0,length(s)-2)); 爱好: 爱好
如例3-8使用掩码编辑框输入个人数据,并将其显示在 memo1,界面改为如下:
编写“确定”按钮Button1的OnClick事件代码:
? procedure TForm1.Button1Click(Sender: TObject); ? begin memo1.Lines.Strings[0] := ':' + edit1.text; : ? memo1.Lines.Strings[1] := '生日:' + maskedit1.text; 生日: 生日 ? memo1.Lines.Strings[2] := '电话:' + maskedit2.text; 电话: 电话 ? memo1.Lines.Strings[3] := '住址:' + edit2.text; 住址: 住址 ? s:= ''; ? if CheckBox1.Checked then s := s + '钓鱼、'; 钓鱼、 钓鱼 ? if CheckBox2.Checked then s
:= s + '读书、'; 读书、 读书 ? if CheckBox3.Checked then s := s + '下棋、'; 下棋、 下棋 ? if CheckBox4.Checked then s := s + '打球、'; 打球、 打球 ? memo1.Lines.Strings[4] := '爱好:' + copy(s,0,length(s)-2); 爱好: 爱好 ? end;
4.4.4 RadioButton控件 控件
单选按钮又称选项按钮,一般是作为一个组(单选按钮 组)来使用;单选按钮是一组相互排斥的单选按钮,选择一个 单选按钮就会立即清除该组中的其它按钮,即一次只能选择一 项。
? 常用属性:checked和caption; ? 选中时,radiobutton的checked值为true;否则为false;
【例4-14】使用单选按钮控制文本的字体,如图4-20所示。
设计步骤如下: (1) 建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。 编写单选按钮RadioButton1的单击(OnClick)事件代码:
if radiobutton1.checked then edit1.Font.Name:='宋体 宋体'; 宋体 if radiobutton2.checked then edit1.Font.Name:='隶书 隶书'; 隶书 if radiobutton3.checked then edit1.Font.Name:='黑体 黑体'; 黑体 if radiobutton3.checked then edit1.Font.Name:='楷体 楷体'; 楷体
<