在OnCreate事件下:
Var
Rgn:HRGN;
Begin
BeginPath(Canvas.Handle);
SetBKMode(Canvas.Handle,TRANSPARENT);
Canvas.Font.Name:='宋体';
Canvas.Font.Size:=100;
Canvas.Font.Color:=clBlue;
Canvas.TextOut(20,20,'文字窗体');
EndPath(Canvas.Handle);
Rgn:=PathToRegion(Canvas.Handle);
SetWindowRgn(Handle,Rgn,True);
