これは pascal.chat のウィキのミラーです。編集、履歴、ログインはそちらで行います。

TToggleBox/ja

Deutsch · English · Français · Suomi · Русский · 日本語

TToggleBox はシングルクリックで有効もしくは、無効とされる2つの状態を保持するラベルのあるボタンである。これはコンポーネントパレットの Standardタブで利用できる。

source codeのどこからでも、クエリStatus := <ToggleBox>.Checked;で有効か、無効を調べることができる。「有効(Checked)」を通常のブール値として用いることができる。そのため、<ToggleBox>.Checked := True;と割り当てることが可能である。

簡単な例

新しいアプリケーションを作りFormに3つのTToggleBoxesを配置する。
ToggleBox1...3のキャプションを「赤」、「緑」、「青」とし、それぞれをtbRed、tbGreen、tbBlueと変える。
TButtonをフォームに追加し、そのキャプションを「青に塗る」と変え、btnPaintと名づける。
TButtonに対するOnClickイベントを作る:オブジェクトインスペクタへ移動し、OnClickイベントを選択し、[...]をクリックするか、フォーム上でそれをダブルクリックする。
btnPaintのイベントハンドラに以下のコードを加える:

pascal

procedure TForm1.btnPaintClick(Sender: TObject);
var
  aColor: TColor;
begin
  aColor:=0;        //Form1のToggleboxの背景色をToggleboxに従って変える。
  if tbRed.Checked   then aColor:=aColor + $0000FF;
  if tbGreen.Checked then aColor:=aColor + $00FF00;
  if tbBlue.Checked  then aColor:=aColor + $FF0000;
  Color := aColor;  //<Formular>.Colorプロパティの変更はformの書き直しを引き起こす
end;

プログラムを起動する、このように見えるはずだ:

イベント

先の例との違いは、ボタンのクリックでフォームが書き換えられないが、すでにトグルボタンの1つ自動的にその1つがクリックされていることだ。

先の例を、そのソースコードのOnClickイベントハンドラのを削除することによって変更することができる。また、簡単に新しい例を作ることができる:

新しいフォームアプリケーションを作り、フォームに3つのTToggleBoxを配置する。
ToggleBox1...3のキャプションを「赤」、「緑」、「青」とし、それぞれをtbRed、tbGreen、tbBlue、即ち、TForm1.tbRedChange(Sender: TObject);とし、他のToggleBoxも同様にそれに倣う:
- フォームでtbRedをダブルクリックするか、フォームでtbRedを選択し、オブジェクトインスペクタのそのイベントタブ移動し、OnChangeイベントを選び、[...]をクリックする。
- それでプロシージャ tbRedChangeができる。
- さらに、フォームのtbGreenを選択する。
- オブジェクトインスペクタのそのイベントタブに移動し、OnChangeイベントを選び、隣のコンボボックスのtbRedChangeを選択する。
- そして、フォーム上のtbBlueを選択、同様に、tbGreenへと進む。
<ToggleBox>.Checkedにより、トグルボタンのOnChangeイベントをフォームの色にする、こう変える:

pascal

procedure TForm1.tbRedChange(Sender: TObject); 
var
  aColor: TColor; 
begin
  aColor:=0;        //トグルボックスによってForm1の背景色を設定する。
  if ToggleBox1.Checked then aColor:=aColor + $0000FF;
  if ToggleBox2.Checked then aColor:=aColor + $00FF00;
  if ToggleBox3.Checked then aColor:=aColor + $FF0000;
  Color := aColor;  //<Formular>.Colorプロパティの変更はフォームの再描画を引き起こす
end;

以下も参照のこと

From the Free Pascal wiki, page "TToggleBox/ja", as it stood on 2024-03-22 after a change by Ariben, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.

第1版、最終更新：WikiArchive 11-4-2026。