代码改变世界

将文字作为程序的窗体

2009-12-03 18:34  HYrz的菜园子  阅读(208)  评论(0)  编辑  收藏  举报

var
rgn:HRGN; 
begin
 Begin

Path(Canvas.Handle);  //绘制的开始路径
 SetBkMode( Canvas.Handle, TRANSPARENT );
 Canvas.Font.Name:= ’宋体’; //设定字体
 Canvas.Font.Size:=50;     //字的大小
 Canvas.Font.Color:=clBlue;//文字的颜色
 Canvas.TextOut( 20, 20, ’Hyrz’);//作为form的形状
 EndPath(Canvas.Handle);  //绘制的结束路径
 rgn:= PathToRegion(Canvas.Handle);
 SetWindowRgn( Handle, rgn, true );//设置窗体的形状
end;