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 comparedatetime、comparedate、comparetime、samedatetime、samedate、sametime �c 对比时间的函数

Delphi tstringlist utf8编码保存并开启bom

Delphi 万年历 程序源码下部分(包括：农历计算、24节气、星期计算、属相)

用Delphi的rtti实现对象的xml持久化

Delphi ado通用操作数据单元

Delphi 日期时间函数

ring3下清零结束进程的Delphi版本

Delphi windows 底下根据一个进程的名字杀死一个进程的代码

Delphi 窗体的位置和高宽度-tform:letf、top、width、height、clientwidth、clientheight

Delphi发送邮件

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

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