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
时间: 2024-10-26 03:25:16
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