专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
很简单的做了一下. procedure TRoundRectPanel.paint; begin Canvas.Pen.Color:= FBorderColor; Canvas.RoundRect(1,1,Width-1, Height-1, 10, 10); end; procedure TRoundRectPanel.resize; var rgn:HRGN; begin inherited; if RoundRect then rgn:=CreateRoundRectRgn(0,0,width,height,10,10) else rgn:=Crea [阅读全文] [PDF]
1 共1条 分1页