简单的Delphi控件-圆角Panel

 2005年5月18日, 发布于:  http://zyyang.spaces.live.com/blog/cns!193DAE30814DFA36!225.entry

很简单的做了一下.

1. procedure TRoundRectPanel.paint;
2. begin
3.   Canvas.Pen.Color:= FBorderColor;
4.   Canvas.RoundRect(1,1,Width-1, Height-1, 10, 10);
5. end;
6. procedure TRoundRectPanel.resize;
7. var
8.   rgn:HRGN;
9. begin
10.   inherited;
11.   if RoundRect then
12.     rgn:=CreateRoundRectRgn(0,0,width,height,10,10)
13.   else
14.     rgn:=CreateRectRgn(0,0,width,height);
15.   SetWindowRgn(handle,rgn,True);
16.   DeleteObject(rgn);{}
17. end;