创建一个文字窗体

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;