电子教鞭程序的设计与实现(实验版)

电子教鞭程序的设计与实现实验设计和步骤1.运行Delphi7，利用File菜单下的“New－Application”新建一个工程；2.在D盘下新建一个文件夹（以自己名字命名），把工程文件以“Draw.dpr”为文件名保存到该文件夹中；3.把单元文件以“Draw_Unit.pas”为文件名也保存到该文件夹中，设置窗体Form1的BorderStyle属性为bsNone，WindowState属性设置为wsMaximized；4.利用File菜单下的“New－Form”新建一个窗体，并把单元文件以“Set_Unit.pas”为文件名保存到文件夹中，窗口的界面如下：画笔设置界面设计ColorDialog对话框（Dialog）5.定义全局变量，保存画笔大小和颜色、鼠标左键是否被按下等信息实验设计和步骤6.系统初始化。操作：选中Form1在对象观察器中选择“Events”选项卡，找到OnCreate事件，双击后面的空白框，然后在生成的代码框架中输入代码。实验设计和步骤•画刷对象用以填充图形，如用画刷颜色或图案对矩形或椭圆进行填充。如图所示为Style的取值以及相应的填充效果。相关知识：TBrush—画刷对象7.当鼠标左键按下时，记录按下状态，设置画线的起点位置等。操作：在窗体Form1的OnMouseDown事件中编写程序代码。实验设计和步骤8.当按住鼠标左键下移动时，进行画线。操作：在窗体Form1的OnMouseMove事件中编写程序代码。实验设计和步骤9.当鼠标左键松开时，画线结束。操作：在窗体Form1的OnMouseUp事件中编写程序代码。实验设计和步骤10.当按下键盘的ESC键，关闭程序；按下F8键打开画笔大小和颜色设置窗口。操作：在窗体Form1的OnKeyDown事件中编写程序代码。实验设计和步骤注意：在Draw_Unit单元中要使用Set_Unit单元中的对象或变量时，必须要在该单元引用Set_Unit单元。实验设计和步骤11.在画笔设置窗口中，双击编辑框，将弹出颜色设置对话框，供用户选择画笔的颜色。操作：在窗体Form2的Edit_Color编辑框的OnDbClick事件中编写程序代码。实验设计和步骤12.关闭画笔设置窗口。操作：在窗体Form2的“设置”按钮的OnClick事件中编写程序代码。实验设计和步骤