功能说明：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;