■三角形フォーム

まず三角形の型（リージョンという）をつくり、それをフォームにセットすればできます。
フォームのBorderStyleをbsNoneにしてください。
CreatePolygonRgnという多角形リージョンを作るAPIを使います。
リージョンを入れる変数 := CreatePolygonRgn(頂点:Tpoint型の配列, 頂点数:integer, 塗り方);
塗り方はとりあえずWINDINGにしておけばOKです。

三角形フォーム

procedure TfrmMain.FormCreate(Sender: TObject);
var 
  sankakuRgn:HRgn;	        //リージョンを宣言
  choten:array[0..2] of TPoint; //三角形の頂点
begin 
  //頂点をきめる
  choten[0] := Point(50, 0);
  choten[1] := Point(0, 100);
  choten[2] := Point(100, 100);
  //三角形のリージョンを作る
  sankakuRgn := CreatePolygonRgn(choten, 3, WINDING);
  //リージョンをセット
  setWindowRgn(frmMain.Handle, sankakuRgn, true);
end; 

戻る