用Delphi画圆角Panel的方法（使用CreateRoundRectRgn创造区域，SetWindowRgn显示指定区域）

用Delphi画圆角Panel的方法：

procedure TForm1.Button5Click(Sender: TObject);
var fhr :Thandle;
begin
fhr:=CreateRoundRectRgn(0,0,panel1.width,panel1.height,4,4);
SetWindowRgn(panel1.handle,fhr,true);
end;

Panel的BevelInner 及 BevelOuter 最好设成 bvNone