自定义窗体(一)
2016-02-04 22:02
190 查看
//椭圆窗体
procedure TForm1.btn1Click(Sender: TObject); var r: HRGN; begin r := CreateEllipticRgn(0, 0, 300, 300); SetWindowRgn(handle, r, true); DeleteObject(r); end;
相关文章推荐
- 第十九课(二)
- 解决 Android Studio 乱码问题
- 《毛主席诗词全集》150首
- [转] 关于ubuntu的sources.list总结
- 使用STM32CUBEMX生成USB Mass Storage代码,通过SDIO读写TF卡
- GPS经纬度转换屏幕坐标
- 用树莓派搭建你自己的Web服务器,以及一个可以外网访问的Blog
- [转] 停止支持的老版本ubuntu源列表-old-releases
- jQuery性能优化
- 《笨办法学Python》 第33课手记
- 纯CSS实现一个微信logo,需要几个标签?
- 概率论常用公式
- 王楠首次讲述Cocos Creator背后的故事
- <Java设计模式>—简单工厂模式
- 写一个Android输入法02——候选窗、转换
- 笔记本win10关机异常解决
- [POJ 3274]Gold Balanced Lineup[math][sort]
- poj 1061 青蛙的约会
- Android虚拟机打不开解决方法
- BZOJ 1001: [BeiJing2006]狼抓兔子