第四章VCL的使用1介绍.ppt

4.5 输入与输出 一、输入、输出对话框 1. 信息对话框 ShowMessage过程： ShowMessage(显示信息); 例：ShowMessage(‘日期输入错误，请按如下格式输入：’+ #13 + ‘1999-03-29’); MessageDlg函教 整型变量 := MessageDlg(信息内容,对话框类型,按钮列表,帮助主题索引)； 对话框类型： mtWarning：警告对话框，提出警告信息 mtError：错误对话框，提示出错信息 mtInformation：信息对话框，显示信息 mtConfirmation：确认对话框，要求确认 mtCustom：简单对话框，不含图标 按钮列表 ： mbOk：确定 mbCancel：取消 mbYes：是 mbNo：否 mbAbort：中断 mbRetry：重试 mbIgnore：忽略 mbAll：全部 mbNoToAll：全部不是 mbYesToAll：全部是 var k:Integer; k:= MessageDlg(文件已存在,覆盖吗？,mtWarning,[mbYes,mbNo,mbYesToAll],0); if k=mrYes then …… else if k=mrNo then …… else if k=mrYesToAll then …… 2.输入对话框 InputBox函数 字符串变量 := InputBox(对话框标题，提示信息，默认值)； 例4-11 InputQuery函数 逻辑变量 := InputQuery(对话框标题，提示信息，字符串变量)； 二、键盘 1. 键盘事件 OnKeyDown事件 每当用户在键盘上按下任何一个按键，不管它是ASCII键还是非ASCII键，就会触发OnKeyDown事件。OnKeyDown事件的语法如下: procedure ObjectKeyDown(Sender:TObject; var Key:Word; Shift:TShiftState); 参数Key为按下的键，其值对应的常数与相应的按键如表4-42所示。另外，数字键0～9对应的Key值为$30～$39，字母键A-Z对应的Key值为$41～$5A。 OnKeyPress事件 每当用户在键盘上按下任何一个ASCII按键，就会触发OnKeyPress事件，但是单独按下非ASCII按键不会触发OnKeyPress事件。 OnKeyUp事件 每当用户在键盘上按下任何一个按键再松开时，无论是ASCII键还是非ASCII键，都触 发OnKeyUp事件。 例4-12 三、鼠标 1. 鼠标事件 鼠标单击、双击、移动会触发鼠标事件。常用的鼠标事件包括OnClick事件、OnDblClick事件、OnMouseDown事件、OnMouseMove事件和OnMouseUp事件。 例4-13 2. 鼠标拖放 鼠标拖放是指将一个组件（称为被拖组件）拖动到另一个组件（称为经过组件）上，并释放鼠标按钮。鼠标拖放过程分为进入拖放状态、拖放过程、结束拖放三个阶段，这三个阶段分别会触发不同的鼠标拖放事件。 例4-14 人有了知识，就会具备各种分析能力， 明辨是非的能力。 所以我们要勤恳读书，广泛阅读， 古人说“书中自有黄金屋。 ”通过阅读科技书籍，我们能丰富知识， 培养逻辑思维能力； 通过阅读文学作品，我们能提高文学鉴赏水平， 培养文学情趣； 通过阅读报刊，我们能增长见识，扩大自己的知识面。 有许多书籍还能培养我们的道德情操， 给我们巨大的精神力量， 鼓舞我们前进。 * 弹出式菜单制作过程与主菜单基本相同，所不同的是可以设置弹出式菜单的位置。PopupMenu的属性Alignment用于设置弹出式菜单的位置，其取值说明如下： paCenter：菜单弹出时顶部中点位于鼠标右击点上 paLeft：菜单弹出时左上角位于鼠标右击点上 paRight：菜单弹出时右上角点位于鼠标右击点上 二. Additional页上的常用组件 1. BitBtn位图按钮组件 位图按钮与基本按钮的作用相同。基本按钮上只能显示文字，而位图按钮上不仅可以显示文字，还可以显示位图，使界面更加美观。 BitBtn组件的常用属性 Caption:位图按钮上显示的文字 Kind:确定位图图形的种类，可取11个值。当为bkCustoms时, 位图图形由Glyph属性确定。取另外10个值，由系统规定按钮的图形和文字（如图4-15所示） Glyph:确定位图图形文件（*.bmp） Spacing:确定按钮上位图与文字的像素个数。为-1时，文字、位图、按钮成等距离 Margin:确定位图与按钮边界之间的像素个数 Layout:位图按钮上文字和图形的布局。为b