Delphi 圆角窗体

2020-02-16 0 条评论 93 次阅读 0 人点赞
procedure TFrmUserInfo.FormCreate(Sender: TObject);
var
  hr: thandle;
begin
  hr := createroundrectrgn(0, 0, width, height, 20, 20);
  setwindowrgn(handle, hr, true);
end;
Anchep

Anchep

TyphonFinger

文章评论(0)

你必须 登录 才能发表评论