实验四 控件的属性.doc

实验四 控件的属性、方法和事件的使用 实验目的： 1．掌握键盘编程的常用事件 2．掌握鼠标编程的常用事件 3．掌握文本文件的常用操作过程和函数 4．掌握有类型文件的常用操作过程和函数 实验内容： 1．识别鼠标是左键单击还是右键单击，并显示当前鼠标的位置。通过鼠标事件的过程参数来识别。 procedure TForm1.onmousedown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var p:Tpoint; begin getcursorpos(p); if button=mbleft then edit1.text:=左键+X: + format(%d,[p.x])+Y: + format(%d,[p.y]) else edit1.text:=右键+X: + format(%d,[p.x])+Y: + format(%d,[p.y]); end; end. 2．设计一程序，实现识别用户当前在键盘上按下的键。 procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean); begin if Msg.CharCode=VK_TAB then begin showmessage(你按下了TAB键按下); end; if Msg.CharCode=VK_capital then begin showmessage(你按下了capslock键按下); end; if Msg.CharCode=VK_f1 then begin showmessage(f1键按下); end; if Msg.CharCode=VK_f2 then begin showmessage(f2键按下); end; if Msg.CharCode=VK_f3 then begin showmessage(f3键按下); end; if Msg.CharCode=VK_f4 then begin showmessage(f4键按下); end; if Msg.CharCode=VK_f5 then begin showmessage(f5键按下); end; if Msg.CharCode=VK_f6 then begin showmessage(你按下了f6键); end; if Msg.CharCode=VK_f7 then begin showmessage(你按下了f7键); end; if Msg.CharCode=VK_f8 then begin showmessage(你按下了f8键); end; if Msg.CharCode=VK_f9 then begin showmessage(你按下了f9键); end; if Msg.CharCode=VK_f10 then begin showmessage(你按下了f10键); end; if Msg.CharCode=VK_f11 then begin showmessage(你按下了f11键); end; if Msg.CharCode=VK_f12 then begin showmessage(你按下了f12键); end; if Msg.CharCode=VK_LEFT then begin showmessage(你按下了left键); end; if Msg.CharCode=VK_right then begin showmessage(你按下了right键); end; if Msg.CharCode=VK_up then begin showmessage(你按下了up键); end; if Msg.CharCode=VK_down then begin showmessage(你按下了down键);