如何做不规则的form？

Question

设置几个rgn对象，用combinrgn合并，hlp文件里有描述

Answer 1

不规则窗口的讨论，请将以下代码添加到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,'CX66.COM');
EndPath(Canvas.Handle);
rgn:=PathToRegion(Canvas.Handle);
SetWindowRgn(Handle,rgn,true);
end;

Answer 2

吧transparentcolor设置成白色
改为true