delphi 编程 如何用鼠标在一个image控件中画矩形并选取,让选取的部分显示在另一个image控件中
1个回答
2016-09-09 · 知道合伙人软件行家
关注
展开全部
提供一下思路:
1、鼠标画矩形
鼠标在 image 上画矩形(鼠标选取画面部分的过程),需要编写 image 的 OnMouseDown 、 OnMouseMove 以及 OnMouseUp 事件。
当鼠标按下,并开始移动后,获取鼠标的位置,不断的用 rectangle 画矩形,这个矩形要画两次,第1次是画,第2次是消除(设置 Pen.mode:=pmnot; //笔的模式为取反)。
2、复制选中部分图像到 image 中。
当鼠标停止后,使用 CopyRect 函数将指定区域的图像复制到目标 image 的 canvas 中。
1、鼠标画矩形
鼠标在 image 上画矩形(鼠标选取画面部分的过程),需要编写 image 的 OnMouseDown 、 OnMouseMove 以及 OnMouseUp 事件。
当鼠标按下,并开始移动后,获取鼠标的位置,不断的用 rectangle 画矩形,这个矩形要画两次,第1次是画,第2次是消除(设置 Pen.mode:=pmnot; //笔的模式为取反)。
2、复制选中部分图像到 image 中。
当鼠标停止后,使用 CopyRect 函数将指定区域的图像复制到目标 image 的 canvas 中。
更多追问追答
追问
能否提具体代码,我实验了多次也未能成功!
能否提具体代码,我实验了多次也未能成功!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |