var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
rgn:HRGN;
begin
BeginPath(Canvas.Handle); // 开始绘画路径,在指定的Canvas
SetBkMode( Canvas.Handle, TRANSPARENT ); // 设置背景为透明
Canvas.RoundRect(10,10,50,50,40,40); // 画三个圆角矩型
//Canvas.RoundRect(50,50,100,200,60,60); //
//Canvas.RoundRect(50,10,100,200,60,60); //
EndPath(Canvas.Handle); // 结束绘画路径
rgn:= PathToRegion(Canvas.Handle); // 将路径加入区域
SetWindowRgn( Handle, rgn, true ); // 设置视窗范围
end;
end.
SetWindowRgn( Handle, rgn, true ); // 设置视窗范围
最新推荐文章于 2025-05-27 15:05:28 发布