Delphi 圆角窗体

procedure TFrmUserInfo.FormCreate(Sender: TObject);
var
  hr: thandle;
begin
  hr := createroundrectrgn(0, 0, width, height, 20, 20);
  setwindowrgn(handle, hr, true);
end;

发表评论