var fhr :Thandle;
//
fhr:=createroundrectrgn(0,0,panel1.width,panel1.height,4,4);
setwindowrgn(panel1.handle,fhr,true);
var fhr :Thandle;
//
fhr:=createroundrectrgn(0,0,panel1.width,panel1.height,4,4);
setwindowrgn(panel1.handle,fhr,true);
转载于:https://my.oschina.net/jingshishengxu/blog/690281