−トップへ−

チェックボックスコンポーネント

　チェックボックスは，左の図にあるように，四角の中にチェックをつけたりはずしたりできるコンポーネントです。

　このチェックボックスのプロパティで，位置や大きさ，表示する文字列などを変えることができます。
　またチェックがされているかどうかは［ Checked ］の欄で見ることができます。もしチェックがされている場合は［ true ］になり，チェックがない場合は［ false ］になります。もし最初からチェックを入れておきたい場合はプロパティの［ Checked ］の欄を［ true ］にしておきます。
　ソースコードの中でチェックの有無によって処理を変えたい場合は次のようにします。

　　if　CheckBox1.Checked = true　then　begin
　　　　（処理１）;
　　end　else　begin
　　　　（処理２）；
　　end ;

　
　このチェックボックスのイベントを発生させることはあまりないと思いますが，今回は「 OnChange 」イベントを発生させてソースコードを書いてみます。
　用意するのは，ラベルコンポーネントとチェックボックスコンポーネントを５個です。配置は適当で構いませんが，チェックボックスの［ Caption ］は右の図のようにしてください。また，ラベルの［ Caption ］は適当に変えてみてください。
　次にチェックボックスの［ OnChange ］イベントを呼び出し，以下のように記述してみてください。

procedure TForm1.CheckBox1Change(Sender: TObject);
begin
　　if　checkbox1 . Checked = true　then　begin //もしチェックされたら文字の大きさを２８にする
　　　　label1 . Font . Size := 28 ;
　　end　else　begin//チェックが外されたら文字の大きさを１４にする
　　　　label1 . Font . Size := 14 ;
　　end ;
end;

procedure TForm1.CheckBox2Change(Sender: TObject);
begin
　　if　checkbox2 . Checked = true　then　begin//もしチェックされたら文字のスタイルの中に太字を加える
　　　　label1 . Font . Style := label1 . Font . Style + [ fsbold ] ;
　　end　else　begin//チェックが外されたら文字のスタイルの中から太字を削除する
　　　　label1 . Font . Style := label1 . Font . Style - [ fsbold ] ;
　　end ;
end;

procedure TForm1.CheckBox3Change(Sender: TObject);
begin
　　if　checkbox3 . Checked = true　then　begin//もしチェックされたら文字のスタイルに斜体を加える
　　　　label1 . Font . Style := label1 . Font . Style + [ fsitalic ] ;
　　end　else　begin//チェックが外されたら文字のスタイルの中から斜体を削除する
　　　　label1 . Font . Style := label1 . Font . Style - [ fsitalic ] ;
　　end ;
end;

procedure TForm1.CheckBox4Change(Sender: TObject);
begin
　　if　checkbox4 . Checked = true　then　begin//もしチェックされたら文字のスタイルに下線を加える
　　　　label1 . Font . Style := label1 . Font . Style + [ fsunderline ] ;
　　end　else　begin//チェックが外されたら文字のスタイルの中から下線を削除する
　　　　label1 . Font . Style := label1 . Font . Style - [ fsunderline ] ;
　　end ;
end;

procedure TForm1.CheckBox5Change(Sender: TObject);
begin
　　if　checkbox5.Checked=true　then　begin//もしチェックされたら文字のスタイルに打ち消し線を加える
　　　　label1 . Font . Style := label1 . Font . Style + [ fsstrikeout ] ;
　　end　else　begin//チェックが外されたら文字のスタイルの中から打ち消し線を削除する
　　　　label1 . Font . Style := label1 . Font . Style - [ fsstrikeout ] ;
　　end;
end;

　
　ここで，プロパティの中のフォントについて説明します。
　フォントの部分をみると右の図のようにいろいろな項目が並んでいますが，その中で［ Style ］の右には [] の記号があり，その下に，［ fsBold ］［ fsItalic ］［ fsStrikeOut ］［ fsUnderLine ］の４つの項目が並んでいます。
　これは，［ Style ］が集合の型になっていて，下の項目をチェックすると［ Style ］の［］の中にチェックした項目が追加されます。
　それをソースコードの中で記述すると上記のような書き方になります。



　このファイルも掲載します。
→ダウンロード



−トップへ−