お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"リージョンでフォーム形状変更"






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

☆準備
 1.Form1 の BorderStyle を bsNone にします。
 2.Image を張り付け Align を alClient にします。
 3.Image の Picture に画像を指定します。
 4.3.で使用した画像の切り取り座標を求めます。
 5.TPoint に 4.で求めた座標をセットします。

☆補足
 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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum