Delphi学习

第3章 常用基本控件
NCIST
3.5 按钮类控件
1.
2.
Hint属性 类型：string Showhint属性 类型：boolean
第3章 常用基本控件
NCIST
3.5 按钮类控件

Checkbox控件 Radiobox控件 RadioGroup控件 通过ItemIndex索引号区分各按钮
返回函数类型为布尔型类型 对话框标题指定对话框的标题 默认内容出现在<字符串变量>中
–
–
单击“OK”,输入框内的文本将赋值到<字符串变量>中， 并返回函数值True； 单击“Cancel”,<字符串变量>中的值保持不变，并返回 False.

实例演示
第3章 常用基本控件
NCIST
3.3 使用焦点

wk.baidu.com 第3章 常用基本控件
NCIST
3.2 使用对话框函数与对话框过程
2.
MessageDlg与MessageDlgPos函数
①
MessageDlg函数
<变量>:=MessageDlg(<信息内容>,<类型>,<按钮组>,Helpctx);

返回函数类型为word类型 按钮组使用多个按钮时需加[ ] 实例演示
第3章 常用基本控件
本章内容
1. 2.
NCIST
3.
4. 5. 6. 7.
与输入/输出有关的控件 对话框和对话框过程 使用焦点 用于分组的控件 控件类按钮 列表框与组合框 使用计时器控件
第3章 常用基本控件
NCIST
3.1 与输入/输出有关的控件
1.
Label控件
① ② ③ ④ ⑤
常用属性： Caption ShowAccelChar Alignment WordWrap Transparent 实例演示
NCIST
上机作业
教材例3_21 教材 97 1、6、8

第3章 常用基本控件 周三7、8节上机 上机地点 基础七

NCIST
第3章 常用基本控件
NCIST
上机总结

控件的名称 name属性必须有内容 语句中的符号为英文符号 单元文件最后的.end不能被删除 系统函数及过程的使用 要学会看懂错误提示
ShowMessage过程 ShowMessage(<信息内容>); //对话框中使用硬回车符#13可以使文本换行 例：
①
showmessage('请您输入用户名'+#13+'以及正确的密码');
第3章 常用基本控件
NCIST
3.2 使用对话框函数与对话框过程
1.
ShowMessage与ShowMessageFmt过程
NCIST
3.7 使用计时器控件

常用属性
1. 2.
Enabled Interval timer 实例演示

常用事件
1.
第3章 常用基本控件
NCIST
课堂小结
1. 2. 3. 4. 5. 6.
与输入/输出有关的控件 对话框和对话框过程 使用焦点 用于分组的控件 控件类按钮 使用计时器控件
第3章 常用基本控件
– –
单击“确定”，输入框内的内容返回给变量 单击“取消”，默认内容返回给变量

实例演示
第3章 常用基本控件
NCIST
3.2 使用对话框函数与对话框过程
2.
MessageDlg与MessageDlgPos函数
⑤
InputQuery函数

<变量>:=InputQuery(<对话框标题>,<信息内容>,<字符串变量>);
②
ShowMessageFmt过程
ShowMessageFmt(<信息内容>,<参数组>);
//对话框中使用硬回车符#13可以使文本换行 例： s:=Format('球的表面积是：%12.4f',[f]); showmessagefmt('球的体积是：%12.4f'+#13+s,[v]); 实例演示
mes.showmodal;
第3章 常用基本控件
NCIST
3.2 使用对话框函数与对话框过程
2.
MessageDlg与MessageDlgPos函数
③
CreateMessageDialog函数

<变量>:=CreateMessagDialog(<信息内容>,<类型>,<按钮组>);
按钮的判断
mesr:TModalResult; mesr:=mes.ShowModal; if mesr = mrOK then button1.Caption:='OK' else button1.Caption:='NO'; end;
③
CreateMessageDialog函数

<变量>:=CreateMessagDialog(<信息内容>,<类型>,<按钮组>);
返回函数类型为TForm类型 使用时需调用窗体的ShowModal方法来显示对话框 实例演示
mes:=CreateMessageDialog('提示信息 ',mtInformation,[mbCancel,mbYes,mbNo]);
第3章 常用基本控件
NCIST
3.1 与输入/输出有关的控件
4.
MaskEdit控件
① ②
位于附加(Additional)组件板 常用属性： EditMask EditText 实例演示
第3章 常用基本控件
NCIST
3.2 使用对话框函数与对话框过程
1.
ShowMessage与ShowMessageFmt过程
第3章 常用基本控件
NCIST
3.2 使用对话框函数与对话框过程
2.
MessageDlg与MessageDlgPos函数

例：请设计一个带有绿色问号的确认对话框，其中含有 Yes和No两个按钮，点击Yes后关闭整个窗体。
第3章 常用基本控件
NCIST
3.2 使用对话框函数与对话框过程
2.
MessageDlg与MessageDlgPos函数
第3章 常用基本控件
NCIST
3.4 用于分组的控件
2.

GroupBox控件
位于Standard组件板中 常用属性 ① Caption 实例演示
第3章 常用基本控件
NCIST
3.5 按钮类控件
1. 2. 3. 4. 5. 6.
Button控件 BitBtn控件 CheckBox控件 RadioButton控件 RadioGroup控件 SpeedButton
第3章 常用基本控件
NCIST
3.5 按钮类控件
ah:=''; case radiogroup1.ItemIndex of 0:xx:='A 型'; 1:xx:='B 型'; 2:xx:='O 型'; 3:xx:='AB型'; end; if checkbox1.Checked then ah:='吃饭，'+ah; if checkbox2.Checked then ah:='睡觉，'+ah; if checkbox3.Checked then ah:='发呆，'+ah; if checkbox4.Checked then ah:='听歌，'+ah; ah:=copy(ah,1,length(ah)-1); showmessage('您的血型为 '+xx+#13+'您的爱好为： '+ah);
3.
Memo控件
① ② ③ ④ ⑤ ⑥ ⑦
常用属性： 可以调用lines的方法处理控件中的文本 Lines 内容，如： Modified Memo.Lines.Add(‘加入新的一行’); ScrollBars Memo.Lines.Delete(5); WordWrap WantReturns WantTabs Text 实例演示
通过showmodal 返回点击的按钮值
第3章 常用基本控件
NCIST
3.2 使用对话框函数与对话框过程
2.
MessageDlg与MessageDlgPos函数
④
InputBox函数

<变量>:=InputBox(<对话框标题>,<信息内容>,<默认内容>);
返回函数类型为String类型 对话框标题指定对话框的标题 信息内容指定对话框中出现的文本 默认内容是对话框的输入框中显示的默认文本，可以修 改。
第3章 常用基本控件
NCIST
列表框与组合框

Combobox Listbox

Item 属性 Itemindex属性：当前被选中内容是第几行(0开始计算) Items.strings[ n ]：显示第n行的内容

Scrollbar

Scrollbar.position max
第3章 常用基本控件
第3章 常用基本控件
NCIST
3.1 与输入/输出有关的控件
2.
Edit控件
① ② ③ ④ ⑤ ⑥
常用属性： AutoSelect BorderStyle MaxLength PasswordChar Text CharCase 实例演示
第3章 常用基本控件
NCIST
3.1 与输入/输出有关的控件
使控件获得焦点
①
调用SetFocus方法

Edit1.SetFocus;
②
设置TabOrder属性
Edit1.TabOrder:=2; 实例演示


第3章 常用基本控件
NCIST
3.4 用于分组的控件
1.

Panel控件
位于Standard组件板中 常用属性 ① BevelInner ② BevelOuter ③ BevelWidth ④ BorderStyle ⑤ BorderWidth 实例演示