この発言に対し以下のコメントが寄せられています

#00093　謎の全知師      さん　RE:フォームの形を変える






// フォームをその引数によって形を変えさせる。

procedure TForm1.HENKEI(RgnFlg: Integer);
var
  CX,CY,X,Y: Integer;
  Rgn: HRgn;
begin
  case RgnFlg of
    1: {楕円}
      Rgn := CreateEllipticRgn(0,0,Width,Height);
    2: {長方形}
      Rgn := CreateRectRgn(0,0,Width,Height);
    3: {角丸四角形}
      Rgn := CreateRoundRectRgn(0,0,Width,Height,25,25);
  end;
  SetWindowRgn(Handle,Rgn,True);
end;

北野貴之/VED00354/kit@fat.coara.or.jp


Original document by 北野貴之　　　　氏 ID:(VED00354)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。