设置园角窗口

var hr: thandle; begin //定义窗体园角 hr := createroundrectrgn(0, 0, Width + 1,Height+1, 30, 30); //定义园角矩形(win API函数) setwindowrgn(handle, hr, true); //设置园角窗口 //Btn1.Brush.Style:=bsClear; end;