Delphi 圆角窗体
procedure TFrmUserInfo.FormCreate(Sender: TObject);
var
hr: thandle;
begin
hr := createroundrectrgn(0, 0, width, height, 20, 20);
setwindowrgn(handle, hr, true);
end;
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。