Delphi 圆角窗体
procedure TFrmUserInfo.FormCreate(Sender: TObject);
var
hr: thandle;
begin
hr := createroundrectrgn(0, 0, width, height, 20, 20);
setwindowrgn(handle, hr, true);
end;-CodeTyphon
