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 pchar和array [0..255] of char的区别

Delphi里动态创建access的交叉表视图

Delphi 将listview保存为txt

Delphi 内存分配 stralloc

Delphi多线程学习：多线程数据库查询（ado）

Delphi 创建大窗口

Delphi ado 连接 excel （附excel各个版本的版本号）

Delphi 10.3 调试程序时出错：unable to create process:请求的操作需要提升

Delphi fmx getapppath 获取app路径

Delphi idhttp post 普通提交乱码处理

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

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