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)   ;
 

相关阅读 >>

Delphi动态分配指针长度

Delphi隐藏系统托盘tray图标

Delphi fmx输出彩色文本

Delphi 在 api 函数中使用 pchar 参数的几种方法

Delphi 时间增加一小时的技巧

Delphi webbrowser载入自定义html内容并显示

Delphi第三方控件通用安装方法

Delphi 获取listview1鼠标所在位置的行名称

Delphi stringtobase64、base64tostring两个函数

fastmm5

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 用文字作为窗体的形状