delphi集锦之一.docVIP

1、模拟按下键盘上的某个键 procedure TForm1.Button1Click(Sender: TObject); begin // 模拟在E d i t 1组件中按下了字母a键 PostMessage(Edit1.Handle, WM_KEYDOWN, 65, 0); end ; procedure TForm1.Timer1Timer(Sender: TObject); begin // 模拟在窗体F o r m 1中按下了Ta b键 PostMessage(Form1.Handle, WM_KEYDOWN, VK_TAB, 0); end ; 2、限制鼠标移动的范围 procedure TForm1.Button1Click(Sender: TObject); var rtbutton2: trect; begin rtbutton2:=button2.BoundsRect; mapwindowpoints(handle,0,rtbutton2,2); clipcursor(@rtbutton2); end; procedure TForm1.Button2Click(Sender: TObject); begin clipcursor(0); end; end. 3、自定义鼠标 首先，在Delphi的主菜单工具下选图像编辑器，编辑一个名为face.res的资源文件，它应该包括个人制作的五个.cur文件：faceleft.cur（图为：圆脸上一双向左看的眼睛），faceright.cur（图为：圆脸上一双向右看的眼睛），plainface.cur（图为：圆脸上一双向前看的眼睛），leftshrink.cur(图为：闭着左眼的圆脸)，rightshrink.cur（图为：闭着右眼的圆脸）。 implementation {$R *.dfm} {$R FACE.RES} procedure TForm1.FormCreate(Sender: TObject); begin screen.cursors[1]:=loadcursor(hinstance,pchar(crhandpoint)); screen.Cursors[2]:=loadcursor(hinstance,pchar(faceright)); screen.Cursors[3]:=loadcursor(hinstance,pchar(plainface)); screen.Cursors[4]:=loadcursor(hinstance,pchar(leftshrink)); screen.Cursors[5]:=loadcursor(hinstance,pchar(rightshrink)); screen.Cursor:=4; end; procedure TForm1.FormClick(Sender: TObject); begin screen.Cursor:=crsqlwait; end; end. 4、键盘事件 常用的键盘事件有： (1) OnKeyDown 当按下键盘上的任一个键，如字母键、数字键、功能键（ F 1 ~ F 1 2）、C t r l键、S h i f t键或A l t 键等，都将产生一个OnKeyDown事件。 下面的一段代码说明了OnKeyDown事件的用法：当打印的时候在窗体中按下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, [mb