delphi 做一个圆形头像

方法一:用API,此方法做出来的效果稍差,边缘会带有锯齿,强迫证患者谨用.

procedure TForm1.FormCreate(Sender: TObject);
var
  fhr: Thandle;
begin
  fhr := CreateRoundRectRgn(0, 0, 195, 195, 195, 195); //195,头像尺寸
  SetWindowRgn(Panel1.Handle, fhr, true);
end;

结果图:

效果图:

方法二.自己用PS做一个PNG图片,此方法不示要代码.且边缘比较润滑.

要求:

　　1.尺寸与头像容器一致

　　2.底色与父级容器底色一致

　　3.中间画一个圆,大小与你要求的头像的尺寸一致.

　　4.按delete去底色,使圆的部分透明.最后保存

结构图:

效果图如下 ,需要你自己再美化一下,这里就不讲了:

 感谢群里大佬的指点: