自己制作不规则窗体

自己制作不规则窗体~请将以下代码添加到FormCreate事件中
运行即可完成字体窗体的创建。
procedure TForm1.FormCreate(Sender: TObject);
var rgn:HRGN;
begin
Form1.Color:=clRed;
BeginPath(Canvas.Handle);
SetBKMode(Canvas.Handle,TRANSPARENT);
Canvas.Font.Name:='宋体';
Canvas.Font.Size:=200;
Canvas.TextOut(150,130,'文字');
EndPath(Canvas.Handle);
rgn:=PathToRegion(Canvas.Handle);
SetWindowRgn(Handle,rgn,true);
end;
如果使用时间，方法类似，只要用formatdatetime或者date（time）tostr将时间变换成文字就可以了~其它具体方法自己考虑吧！很久没有用这段代码，应该没有错~

--------------------
procedure TForm1.Timer1Timer(Sender: TObject);
var rgn:HRGN;
begin
Form1.Color:=clRed;
BeginPath(Canvas.Handle);
SetBKMode(Canvas.Handle,TRANSPARENT);
Canvas.Font.Name:='宋体';
Canvas.Font.Size:=100;
Canvas.TextOut(150,130,FormatDateTime('hh:nn:ss',now));
EndPath(Canvas.Handle);
rgn:=PathToRegion(Canvas.Handle);
SetWindowRgn(Handle,rgn,true);
end;

以上代码在 win2000+delphi7 下测试通过~
---------------
你可以设置
窗体的边框属性为：bsNone
在窗体中放一个图片控件，
加栽你喜欢的背景图片就是了！