아래는 각각 투명한, 타원, 삼각형, 둥근사각형..
모양의 폼을 만드는 함수 예제 입니다..
많은 참고가 되시길..

From 류..

---------

Procedure SetTransparentForm(Form:Pointer);
Begin
  With TForm(Form) do
    Begin
      Brush.Style:= bsClear;
      BorderStyle:= bsNone;
    End;
End;

Procedure SetEllipticForm(Form:Pointer);
Var
   R : HRgn;
Begin
  With TForm(Form) do
    Begin
      R:= CreateEllipticRgn(0, 0, Width , Height);
      SetWindowRgn(Handle, R, True);
    End;
End;

Procedure SetTriAngleForm(Form:Pointer);
Var
   R : HRgn;
   PolyArray : Packed Array [0..2] of TPoint;
Begin
  With TForm(Form) do
    Begin
      PolyArray[0]:= Point( Width div 2,   0);
      PolyArray[1]:= Point(  0, Height);
      PolyArray[2]:= Point(Width, Height);
      R:= CreatePolygonRgn(PolyArray, 3, WINDING);
      SetWindowRgn(Handle, R, True);
    End;
End;

Procedure SetRoundRectForm(Form:Pointer; SizeX,SizeY:Integer);
Var
   R : HRgn;
Begin
  With TForm(Form) do
    Begin
      R:= CreateRoundRectRgn(0, 0, Width, Height, SizeX, SizeY);
      SetWindowRgn(Handle, R, True);
    End;
End;