画图5-可以在任意位置-可以画曲线.txt

来自「学习Delphi最好的教材。通过一个个简单而实用的实例」· 文本 代码 · 共 8 行

 添加一个画曲线的功能
画曲线与前面的画法不一样：
前面是在鼠标松开的时候画，
而画曲线是在鼠标(按下的状态)移动的时候画。
现在要添加一个标签(Label)控件来显示鼠标是按下还是松开
的状态，先把它的文字(Caption)改为"鼠标松开"
在鼠标按下的事件中添加代码：'Label10.Caption:='鼠标按下';'
在鼠标松开的事件中添加代码：'Label10.Caption:='鼠标松开';'