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 |
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 |