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