DELPHI第四天，求助大佬，画图工具的问题

2023-01-11 20:41:44 241 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

编程萌新2023 墨衍会员 · AI 创作全网分发关注 + 加入社区

delphi 缓冲画图（内存画图）解决画图闪烁问题很多朋友在做绘图程序的时候，往往出现屏幕不停刷新产生闪烁的问题，这里就告诉大家一个解决办法，缓冲绘图。如果有人是用取反画图解决这个问题，那么在画直线的时候容易出现斑点，效果不是很好。如果是图片很大，那么缓冲画图是解决的好办法。在网上搜索一下内存绘图，或者缓冲绘图，会有很多技术文章，不过都是以vc或者java为主，很少有pascal的代码例子。不过原理都是一样的，大家可以参考他们的文章。我会在最阅读详情

我想做一个工具，可以在屏幕上自由的画线条的，当我点击按钮之后，鼠标经过的位置就会有线条出现

目前做法如下
New Form

VAR
DC:HDC; //gdi句柄
zuobiao:Tpoint; //坐标变量
huatu:boolean=false //画图变量判断
app:Tcanvas; //画布变量

窗体TForm1.FormCreate事件触发

dc=getdc(0) //获取屏幕句柄
app:=canvas.Create; //创建一个Canvas对象
app.Handle:=DC; //将屏幕和画布关联
Getcursorpos(Zuobiao); //获取当前屏幕坐标位置

鼠标OnMouseDown事件触发

app.MoveTo(zuobiao.X,zuobiao.Y);//画布的坐标移动到我屏幕坐标位置
if button =mbleft then begin //判断按键左右
app.Pen.Color:=clred; //画笔颜色设置为红色
app.Pen.Width:=3; //画笔宽度为3
huatu:=true; //画图变量为真
end
else
begin
huatu:=false; //画图变量为假
end;
end;

OnMouseMove事件触发

if huatu then begin
app.lineto(zuobiao.x,zuobiao.y); //将我鼠标经过的画出线条
end;

但是现在问题是，打开Form就报错，另外就是不在屏幕上画线
已经折腾了五个小时了，请大佬帮帮忙，小弟在线等答案！
不知道问题出在哪里了！！！

...全文