円形のフォームを作りたいのですが (ID:6942)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じ procedure TForm1.FormCreate(Sender: TObject); var hR:HRGN; begin Width := 220; Height := 220; hR := CreateEllipticRgn(10,10,210,210); SetWindowRgn(Handle,hR,true); end;