创建一个文字窗体

文字窗体代码

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 ;

 

转载于:https://www.cnblogs.com/rogee/archive/2010/10/01/1839788.html