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

Delphi程序设计教程 * 第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 OnMouseUp OnMouseMove 当用户在对象A单击但在对象