：）分不少呀，到处求。
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=2524857
一个小例子：
建立不规则的窗口
在窗口的创建事件中加入如下代码
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);
