Delphi绘图组件OnPaint事件教程
绘图组件的OnPaint事件在 Delphi 里蛮常见的，尤其是你想自己控制界面绘制逻辑的时候。这个例子里，直接在PaintBox1里画圆角矩形、椭圆、矩形，按钮一按就能看见效果，挺适合用来练手。代码不复杂，适合入门的同学或者想快速验证绘图思路的场景。
Delphi 的PaintBox组件用起来比较自由，画图过程全靠你自己在OnPaint里控制。比如想画个圆角矩形，直接用RoundRect方法就搞定。像下面这样：
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Canvas.RoundRect(10, 10, 200, 100, 20, 20);
end;响应也快，代码也简单。你可以配合Invalidate方法来触发重绘，比如在按钮的OnClick里这么写：
procedure TForm1.Button1Click(Sender: TObject);
begin
PaintBox1.Invalidate;
end;如果你刚开始玩 Delphi 的绘图系统，建议你多试试这些基础图形，理解坐标系和重绘机制会有。
相关内容也挺多的，像Delphi 的 OnPaint 事件代码讲得比较细，另外别的语言怎么画圆角矩形也可以看看，思路都差不多，比如 C++的实现 和 CSS3 的 border-radius。
如果你对图形绘制感兴趣，可以顺手多看几个例子，像Cocos和Unity的圆角也挺有意思的，思路不同但都值得一看。
嗯，，PaintBox配合OnPaint用起来还是比较舒服的，适合你做一些轻量的自定义绘图需求。如果你有自己的控件想自绘，那就更得熟练掌握这个事件了。
文件大小：2.31MB
评论区