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