创建一个文字窗体

 
    
    procedure 
     TForm1.btn1Click(Sender: TObject);
 
    var 
    
  rgn:HRGN;
 
    begin 
    
  Self.Color : 
    = 
     clBlue;
  BeginPath(Canvas.handle);
  SetBkMode(Canvas.Handle,TRANSPARENT );
  Canvas.Font.Name : 
    = 
      
    ' 
    宋体 
    ' 
    ;
  Canvas.Font.Size : 
    = 
      
    60 
    ;
  Canvas.Font.Style : 
    = 
     [fsBold];
  Canvas.Font.Color : 
    = 
     clBlue;
  Canvas.TextOut( 
    10 
    , 
    30 
    , 
    ' 
    文字窗体 
    ' 
    );
  EndPath(Canvas.Handle );
  rgn: 
    = 
     PathToRegion(Canvas.handle);
  SetWindowRgn(Handle,rgn,True);
 
    end 
    ;