パネルにリージョンを (ID:40134)

名前

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

本文 パネルにリージョンを適用する場合、BevelがBSNONEで かつBorderStyleがBSNONEでないと、下記のコードでただしく 角が丸くならないのですが、どうしてでしょうか？ BevelInnerがBvLoweredでも角が丸くなるようにできません でしょうか？ よろしくお願いします。 WinXpSp2+Delphi7 procedure TForm1.Button1Click(Sender: TObject); var BtnRgn : HRgn; begin BtnRgn := CreateRoundRectRgn(0,0, Panel1.Width, Panel1.Height, 3, 3); SetWindowRgn(Panel1.Handle, BtnRgn, True); DeleteObject(BtnRgn); end;