2022 年 10月 6 日随笔档案 - 一曲轻扬

2022年10月6日

摘要：效果图: 核心代码: use Vcl.Themes;procedure TForm1.FormCreate(Sender: TObject);var i:integer; popItem:TMenuItem; begin//动态生成右键菜单与绑定事件 //TStyleManager样式管理器,不用声阅读全文

posted @ 2022-10-06 19:29 一曲轻扬阅读(276) 评论(0) 推荐(0)

delphi 做一个圆形头像

摘要：方法一:用API,此方法做出来的效果稍差,边缘会带有锯齿,强迫证患者谨用. procedure TForm1.FormCreate(Sender: TObject); var fhr: Thandle; begin fhr := CreateRoundRectRgn(0, 0, 195, 195, 阅读全文

posted @ 2022-10-06 09:11 一曲轻扬阅读(455) 评论(0) 推荐(0)