VCL フォームアプリケーションで多角形を描画する
グラフィックを使用する VCL フォーム アプリケーションの作成方法 への移動
この手順では，VCL フォームに多角形を描画します。
- VCL フォームを作成する。
- 多角形を描画する，フォームの OnPaint イベントハンドラを作成する。
- アプリケーションをビルドして実行する。
VCL フォームを作成する
- ［ファイル > 新規作成 > その他］の［Delphi プロジェクト > ］または［C++Builder プロジェクト］を選択し，［VCL フォームアプリケーション］アイコンをダブルクリックします。VCL フォームデザイナが表示されます。
- フォームビューで，必要であればフォームをクリックして，オブジェクトインスペクタに Form1 を表示します。
OnPaint イベントハンドラを作成する
- オブジェクトインスペクタの［イベント］タブをクリックします。
- OnPaint イベントをダブルクリックします。コードエディタが表示され，TForm1.FormPaint（Delphi）または TForm1::FormPaint（C++）イベントハンドラブロックにカーソルが置かれます。
- 次のイベントハンドラコードを入力します。
Canvas.Polygon ([Point(0,0), Point(0, ClientHeight), Point(ClientWidth, ClientHeight)]);
TPoint points[] = { Point(0,0),
Point(0, ClientHeight),
Point(ClientWidth, ClientHeight) };
Canvas->Polygon( points, 3 );
プログラムを実行する
- ［実行 > 実行］を選択します。
- アプリケーションが実行され，フォームの左下半分に直角三角形が表示されます。