频道分类

Delphi 用文字作为窗体的形状

作者:admin 来源: 日期:2020/1/29 23:53:43 人气: 标签:

 
var
 rgn:HRGN;
begin
   BeginPath(canvas.Handle) ; //绘制的开始路径
   SetBkMode(Canvas.Handle,TRANSPARENT) ;    //TRANSPARENT
   Canvas.Font.Name:='宋体';
   Canvas.Font.Size:=50;
   Canvas.Font.Style:=[fsBold] ;
   Canvas.Font.Color:=clRed;
   Canvas.TextOut(100,100,'王者软件');      //用文字作为窗体的形状
   EndPath(Canvas.Handle);
   rgn:=PathToRegion(Canvas.Handle)  ;
   SetWindowRgn(Handle,rgn,True)   ;