☆説明
　Formを変形表示します。

☆準備
　１．Form1 の BorderStyle を bsNone にします。
　２．Image を張り付け Align を alClient にします。
　３．Image の Picture に画像を指定します。
　４．３．で使用した画像の切り取り座標を求めます。
　５．TPoint に ４．で求めた座標をセットします。

☆補足
　Delphi3.1 でテスト。
　スプラッシュウィンドウに使用するといいかもしれませんね(^^;

[サンプルソース]
----------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
   rgn:  HRGN;
   point: array[0..123] of TPoint;
begin
     // ウインドウ形状の変更
     point[0].X := 57;
     point[0].Y := 490;

     point[1].X := 334;
     point[1].Y := 490;

     …（省略）

     point[122].X := 58;
     point[122].Y := 485;

     rgn := CreatePolygonRgn(point, 123, WINDING);
     SetWindowRgn(Handle, rgn, True);
end;
----------------------------------------------------------------------



                              98/1/4(日) 05:48pm  LDM03756 佐藤　充男

Original document by 佐藤　充男　　　氏 ID:(LDM03756)

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