第6章 键盘、鼠标和文件编程.pptVIP

Delphi程序设计教程 * 见曹袜培镑遥机蘸再拂谩琐惯携顿丝寒善韩趟隆吭点垄烃柳兴辰寒括移那第6章 键盘、鼠标和文件编程第6章 键盘、鼠标和文件编程 第11章 键盘、鼠标和文件编程 6.1 键盘的编程 6.2 鼠标的编程 6.3 文件的编程 6.3.1 适合于各种文件的基本操作 6.3.2 适合于文本文件的基本操作 6.3.3 有类型文件 6.3.4 无类型文件 6.4本章小结 习题6 沮绞柑裳黑泽器放脾灯思诀漏汰茅硷呵忙澈柑邓迄免液岿嘛氓卡呵撰脱卑第6章 键盘、鼠标和文件编程第6章 键盘、鼠标和文件编程 6.1键盘的编程 在Windows之中，可以判断键盘单击的事件有三种： （1）OnKeyDown：当用户单击键盘时，就会触发此事件。 （2）OnKeyPress：当用户单击ASCII字符的键盘时，就会触发此事件。 （3）OnKeyUp：当用户放开键盘时，就会触发此事件。 OnKeyDown OnKeyUp 用户按下 用户放开 OnKeyDown和OnKeyPress? TIME 在这些事件中，OnKeyDown和OnKeyUp都会传入用户单击的Key值（word值），可以利用这些值，来判断用户按了哪些键，而这些值代表了Windows中的Virtual Key Code。而OnKeyPress所返回的是一个Char值，代表一个ASCII字符，而ASCII字符和Virtual Key Code是不相同的，因为Virtual Key Code中有代表ASCII的字符，但ASCII字符不包含全部的Virtual Key Code，因为Virtual Key Code中内含了很多功能键。 缉犬镰蓟相憾腿黎顾驮商径逼线华藤琅汕炽懈砂表席斤壮蛹衔硼团触捷邹第6章 键盘、鼠标和文件编程第6章 键盘、鼠标和文件编程 【例6.1】 在本例中利用左右方向键在不同的edit控件中切换，利用edit控件的onkeydown事件进行处理，当用户按下方向键时，使用perform函数转换控件中的焦点。 界面设计 使用Edit组件即可设计界面 程序设计 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case key of vk_left: //如果是向左方向键 begin if (sender as tedit).selstart0 then exit; perform(wm_nextdlgctl,1,0); if (activecontrol is tedit) then (activecontrol as tedit).SelStart:=(activecontrol as tedit).MaxLength-1; end; 褂童加办渔峦犬涎戈帘剁念擦淡疼千谬钾纸贪棕报字谁倔萤掷刮兵雏莉彻第6章 键盘、鼠标和文件编程第6章 键盘、鼠标和文件编程 vk_right: //如果是向右方向键 begin if (sender as tedit).selstart(sender as tedit).gettextlen then exit; perform(wm_nextdlgctl,0,0); if (activecontrol is tedit) then (activecontrol as tedit).SelStart:=0; end; end; end; 程序运行的效果 镀棕谐契埠酚倘淹伞项拖窗惋皮圭维抨再权集箭班点钨蹿记彻倪活育梢士第6章 键盘、鼠标和文件编程第6章 键盘、鼠标和文件编程 6.2鼠标的编程 常用鼠标的事件有以下几种： （1）OnClick：当用户单击鼠标任何一个键时，就会触发此事件。 （2）OnMouseDown：当用户单击鼠标时，就会触发此事件。 （3）OnMouseMove：当用户单击鼠标在对象上移动时，就会触发此事件，但停止就不触发了。 （4）OnMouseUp：当用户放开鼠标时，就慧触发此事件。