绘图组件的OnPaint事件在 Delphi 里蛮常见的,尤其是你想自己控制界面绘制逻辑的时候。这个例子里,直接在PaintBox1里画圆角矩形、椭圆、矩形,按钮一按就能看见效果,挺适合用来练手。代码不复杂,适合入门的同学或者想快速验证绘图思路的场景。 Delphi 的PaintBox组件用起来比较
Delphi 0 次浏览
为OnPaint事件编写代码时,使用循环变量i扫描窗体像素行,设置渐变颜色分量c,根据选择的基色为画笔设置颜色。然后,将画笔起点设在窗体左端,并使用画笔在窗体中画线。
Delphi 26 次浏览