SetWindowRgn文字窗体

功能说明：SetWindowRgn文字窗体 
procedureTForm1.FormCreate(Sender: TObject);
var
    rgn:HRGN;
begin
    BeginPath(Canvas.Handle); //绘制的开始路径
    SetBkMode( Canvas.Handle, TRANSPARENT );
    Canvas.Font.Name := '宋体'; //设定字体
    Canvas.Font.Size := 100; //字的大小
    Canvas.Font.Color :=clBlue; //文字的颜色
    Canvas.TextOut( 40, 40, '漂亮吗?'); //用"漂亮吗?"作为form的形状
    EndPath(Canvas.Handle); //绘制的结束路径
    rgn :=PathToRegion(Canvas.Handle);
    SetWindowRgn( Handle, rgn, true ); //设置窗体的形状
end;

通过 Wiz 发布