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 发布