delphi 用文字作为窗体的形状
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) ;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.035392045974731 seconds