2005年5月18日, 发布于:
http://zyyang.spaces.live.com/blog/cns!193DAE30814DFA36!225.entry
很简单的做了一下.
- procedure TRoundRectPanel.paint;
- begin
- Canvas.Pen.Color:= FBorderColor;
- Canvas.RoundRect(1,1,Width-1, Height-1, 10, 10