摘要： 测试效果图: 自定义的 MyShape 单元: unit MyShape; interface uses Windows, Classes, Graphics, Controls; type TMyShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle, st... 阅读全文