Delphi 用获取路径的方法得到圆形窗体.rar

Delphi用获取路径的方法得到圆形窗体，制作实现一个非矩形窗口，可以说是一个不规则窗口了，圆形的窗口，标题栏、状态栏及窗口关闭等操作按钮均不邮了。圆形窗口的基本实现思路是根据路径创建不规则窗体，然后设置窗口为透明模式，部分代码如下：　　dc:=self.Canvas.Handle;　　BeginPath(dc);　　//根据路径创建不规则窗体　　SetBkMode(dc,TRANSPARENT);　　//设置为透明模式　　Ellipse(dc,20,20,220,220);　　EndPath(dc);　　region:=PathToRegion(dc);　　SetWindowRgn(self.Handle,region,TRUE);