《第6章键盘、鼠标和文件编程》-公开课件.pptVIP

Delphi程序设计教程 * 2005年 8月 杨长春　主编 清华大学出版社 同名教材配套电子教案 第11章 键盘、鼠标和文件编程 6.1 键盘的编程 6.2 鼠标的编程 6.3 文件的编程 6.3.1 适合于各种文件的基本操作 6.3.2 适合于文本文件的基本操作 6.3.3 有类型文件 6.3.4 无类型文件 6.4本章小结 习题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.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; 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.2鼠标的编程 常用鼠标的事件有以下几种： （1）OnClick：当用户单击鼠标任何一个键时，就会触发此事件。 （2）OnMouseDown：当用户单击鼠标时，就会触发此事件。 （3）OnMouseMove：当用户单击鼠标在对象上移动时，就会触发此事件，但停止就不触发了。 （4）OnMouseUp：当用户放开鼠标时，就慧触发此事件。 （5）OnMouseWheel：当用户单击滚轮按钮时，就会触发此事件。 （6）OnMouseWheelDown：当用户用滚轮按钮向下转动时，就会触发此事件。 （7）OnMouseWheelUp：当用户滚轮按钮向上转动时，就会触发此事件。 在这些事件中，OnMouseDown和OnMouseUp都会触发事件，但是在用户单击时，可能会移动鼠标位置，使得两者被触发的对象是不同的，但OnClick和OnMouseDown是会触发在同一个对象上的。 当用户在对象A按一下时，A会同时触发OnMouseDown OnClick On