实验四 控件的属性.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 showm