VCL フォームアプリケーションで角の丸い四角形を描画する
グラフィックを使用する VCL フォーム アプリケーションの作成方法 への移動
この手順では，VCL フォームに角の丸い四角形を描画します。
- VCL フォームを作成し，フォームの OnPaint イベントハンドラを記述する。
- アプリケーションをビルドして実行する。
VCL フォームを作成する
- ［ファイル > 新規作成 > その他］の［Delphi プロジェクト > ］または［C++Builder プロジェクト］を選択し，［VCL フォームアプリケーション］アイコンをダブルクリックします。VCL フォームデザイナが表示されます。
- オブジェクトインスペクタの［イベント］タブをクリックします。
- OnPaint イベントをダブルクリックします。コードエディタが表示され，TForm1.FormPaint（Delphi）または TForm1::FormPaint（C++）イベントハンドラブロックにカーソルが置かれます。
- 次のイベントハンドラコードを入力します。
Canvas.RoundRect(0, 0, ClientWidth div 2, ClientHeight div 2, 10, 10);
Canvas->RoundRect( 0, 0, ClientWidth / 2, ClientHeight / 2, 10, 10 );
プログラムを実行する
- プロジェクトのすべてのファイルを保存し，［実行 > 実行］を選択します。
- アプリケーションが起動し，フォームの左上 4 分の 1 の領域に角の丸い四角形が表示されます。