フォームの本文：
オブジェクト Form1: TForm1
左 = 192
トップ = 107
BorderStyle = bsNone
キャプション = 'フォーム 1'
クライアントの高さ = 348
クライアント幅 = 536
カラー = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
フォントの高さ = -11
Font.Name = 'MS サンセリフ'
フォント.スタイル = []
OldCreateOrder = False
OnCreate = Button1Click
インチあたりのピクセル数 = 96
テキストの高さ = 13
オブジェクト Button1: TButton
左 = 392
トップ = 152
幅 = 75
高さ = 25
キャプション = 'ボタン 1'
タブオーダー = 0
OnClick = ボタン 1 クリック
終わり
オブジェクト Button2: TButton
左 = 432
トップ = 24
幅 = 17
高さ = 17
キャプション = 'ボタン 2'
タブオーダー = 1
OnClick = ボタン 2 クリック
終わり
オブジェクト Button3: TButton
左 = 448
トップ = 40
幅 = 17
高さ = 17
キャプション = 'ボタン 2'
タブオーダー = 2
OnClick = ボタン 3 クリック
終わり
オブジェクト Button4: TButton
左 = 464
トップ = 56
幅 = 17
高さ = 17
キャプション = 'ボタン 2'
タブオーダー = 3
OnClick = ボタン 4 クリック
終わり
終わり
各種イベント音声名：
TForm1 = クラス(TForm)
ボタン 1: T ボタン;
ボタン 2: T ボタン;
ボタン 3: T ボタン;
ボタン 4: T ボタン;
手順 Button1Click(送信者: TObject);
プロシージャ Button2Click(送信者: TObject);
プロシージャ Button3Click(送信者: TObject);
プロシージャ Button4Click(送信者: TObject);
プライベート
プロシージャ WMmove(var メッセージ: TWMNCHITTEST);メッセージ WM_NCHITTEST;
{ プライベート宣言 }
公共
{ 公的宣言 }
終わり;
変数
フォーム1: TForm1;
実装
{$R *.DFM}
プロシージャ TForm1.WMmove(var メッセージ: TWMNCHITTEST);
始める
メッセージ.結果 := HTCAPTION;
終わり;
プロシージャ TForm1.Button1Click(送信者: TObject);
変数
R1、R2、R3、R4、R5: HRGN;
始める
R1 := CreateEllipticRgn(0,0,Round(ClientWidth / 2),ClientHeight);
R2 := CreateEllipticRgn(Round(ClientWidth / 2),0,ClientWidth,ClientHeight);
R3 := CreateEllipticRgn(Round(ClientWidth / 4 ),Round(ClientHeight / 4 *3),Round(ClientWidth / 4 *3),ClientHeight);
R4 := CreateRectRgn(0,0,0,0);
R5 := CreateRectRgn(0,0,0,0);
CombineRgn(R4,R2,R1,RGN_or);
CombineRgn(R5,R4,R3,RGN_or);
SetWindowRGN(ハンドル,R5,True);
オブジェクトの削除(R1);
オブジェクトの削除(R2);
オブジェクトの削除(R3);
オブジェクトの削除(R4);
オブジェクトの削除(R5);
終わり;
プロシージャ TForm1.Button2Click(送信者: TObject);
始める
SendMessage(ハンドル,WM_SYSCOMMAND,SC_MINIMIZE,0);
終わり;
プロシージャ TForm1.Button3Click(送信者: TObject);
始める
SendMessage(ハンドル,WM_SYSCOMMAND,SC_DEFAULT,0);
終わり;
プロシージャ TForm1.Button4Click(送信者: TObject);
始める
アプリケーションを終了します。
終わり;
終わり。