■円形フォーム

まず円形の型（リージョンという）をつくり、それをフォームにセットすればできます。 フォームのBorderStyleをbsNoneにしてください。

円形フォーム

procedure TfrmMain.FormCreate(Sender: TObject);
var
  enRgn:HRgn;	//リージョンを宣言
begin
  //円形のリージョンを作る
  enRgn := CreateEllipticRgn(0, 0, 200, 200);
  //リージョンをセット
  setWindowRgn(frmMain.Handle, enRgn, true);
end;

戻る