DELPHI 5编程实例与技巧005--键盘和鼠标.PDFVIP

下载 第5章 键盘和鼠标 键盘和鼠标早已成为Wi n d o w s环境中的标准输入设备，所以一个优秀的应用程序在键盘响 应和鼠标响应方面也一定要非常完美。 5.1 键盘事件 常用的键盘事件有： (1) OnKeyDown 当按下键盘上的任一个键，如字母键、数字键、功能键（ F 1 ~ F 1 2 ）、C t r l键、S h i f t键或A l t 键等，都将产生一个O n K e y D o w n事件。 下面的一段代码说明了O n K e y D o w n事件的用法：当打印的时候在窗体中按下 E s c键后，取 消打印作业。 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState); b e g i n if (Key=VK_ESCAPE) and Printer.Printing then b e g i n P r i n t e r.Abort; // 中止打印 M e s s a g e D l g ( 打印中止。, mtInformation, [mbOK],0); e n d ; e n d ; (2) OnKeyPress 当按下键盘上的一个字符键，如字母键、数字键等会产生一个 O n K e y P r e s s事件，但是单独 按下功能键（F 1 ~ F 1 2 ）、C t r l键、S h i f t键或A l t键等，不会产生O n K e y P r e s s事件。 下面的一段代码说明了O n K e y P r e s s事件的用法： procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); b e g i n // 显示按下的键 M e s s a g e D l g ( 你按下了 +Key+ 键。,mtInformation, [mbOK], 0) e n d ; (3) OnKeyUp 当按下键盘上的任一个键后松开时，都会产生一个O n K e y U p事件。对于功能键 （F1 ~ F12 ）、 C t r l键、S h i f t键或A l t键等，也会产生一个O n K e y U p事件。 下面的一段代码说明了O n K e y D o w n事件和O n K e y U p事件的用法： v a r FormColor: TColor; // 用来保存窗体原来的颜色 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState); b e g i n // 当键按下时先保存窗体的颜色然后再改变窗体的颜色 FormColor := Form1.Color; 120基本第二部分 Delphi 编程的核心技能 下载 Form1.Color := clAqua; e n d ; procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); b e g i n // 当键弹起时恢复窗体的颜色 Form1.Color := FormColor; e n d ; 程序运行后，在窗体中按下某个键然后松开，窗体的颜色会随之改变。 5.2 鼠标事件 5.2.1 常用鼠标事件 常用的鼠标事件有： (1) OnMouseDown 当按下鼠标上的任一个键，会产生一个O n M o u s e