Difference between revisions of "TCheckGroup/ja"
From Free Pascal wiki
Jump to navigationJump to search(4 intermediate revisions by the same user not shown) | |||
Line 2: | Line 2: | ||
{{ Japanese Menu }} | {{ Japanese Menu }} | ||
+ | '''TCheckGroup'''[[image:tcheckgroup.png]]は、コンテナコンポーネント上で物理的におよび論理的にグループ化されたTCheckBoxアイテムのグループを含むコントロールである。 | ||
− | |||
− | |||
− | + | TForm上でTCheckGroupを使用するには、単に[[Component Palette/ja|コンポーネントパレット]]の[[Standard tab/ja|Standardタブ]]でそれを選択し、フォーム上でクリックして配置する。 | |
− | === | + | ===例=== |
− | + | フォームの背景色を変更する。この色は、個々の色成分を加算して決定される: | |
− | + | * 新しいアプリケーションを作成し、フォームにTCheckGroupを配置する。 | |
− | + | * オブジェクトインスペクタで、''CheckGroup1''の''Name''プロパティを''cgRed''に変更し、キャプションを''Red''に変更する。 | |
− | * | + | * ''cgRed''にチェックボックスを追加する。 |
− | * | + | ** オブジェクトインスペクタで、''cgRed''の''Items''プロパティを選択する。 |
− | * | + | ** [...]ボタンをクリックすると、文字列エディタが開く。 |
− | ** | + | ** 1 2 4 8 16 32 64 128と入力し、''OK''ボタンをクリックしてエントリを完了する。 |
− | ** | + | * フォーム上の''cgRed''を右クリックし、「コピー」をクリックしてこのTCheckGroupをコピーする。 |
− | ** | + | * フォームを右クリックし、''Insert''をクリックして、名前が''cgRed1''のTCheckGroupが作成される。 |
− | * | + | * ''cgRed1''の''Name''を''cgGreen''に変更し、''Caption''を''Green''に変更する。 |
− | * | + | * TCheckGroupを挿入し、その名前を''cgBlue''に変更し、キャプションを''Blue''に変更する。 |
− | * | + | * チェックボックスがクリックされるたびに、色が変わる。 |
− | * | + | ** オブジェクトインスペクタで、''cgRed''の''OnItemClick''イベントハンドラを作成するために、''OnItemClick''イベントの隣の [...] ボタンをクリックする。 |
− | * | + | ** ''cgGreen''と''cgBlue''についても同じイベントハンドラを選択するために、''OnItemClick''イベントの隣にあるComboBoxでそれぞれ''cgRedItemClick''を選択する。 |
− | ** | + | ** ''cgGreen''と''cgBlue''に対しても同じイベントハンドラを選択するために、''OnItemClick''イベントの隣にあるコンボボックスでそれぞれ''cgRedItemClick''を選択する。 |
− | ** | + | ** イベントハンドラに以下のコードを記述する: |
− | ** | ||
<syntaxhighlight lang=pascal> | <syntaxhighlight lang=pascal> | ||
Line 42: | Line 40: | ||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | * | + | * プログラムを実行すると、以下のように見えるだろう: |
[[image:ExampleTCheckGroup.png]] | [[image:ExampleTCheckGroup.png]] | ||
+ | ==チェックボックスにアクセスする== | ||
− | + | TCheckGroup内の各アイテムにはCheckedプロパティがあり、それらをすべてチェック済みに設定するには、次のようにする。 | |
− | |||
− | |||
− | <syntaxhighlight lang=pascal>for i := 0 to MyCheckGroup.items.Count-1 do // | + | <syntaxhighlight lang=pascal>for i := 0 to MyCheckGroup.items.Count-1 do // 見つかったすべてのカテゴリを調べる |
MyCheckGroup.Checked[i] := true; | MyCheckGroup.Checked[i] := true; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | + | 実行時にアイテムを追加するには、TCheckGroup.Itemsを使用する。これはTStringsリストである。新しいチェックボックスをセットに追加するには、単にMyCheckGroup.Items.add('CheckThis');を行う。同様に、すべてのアイテムを削除するには、リストをクリアする MyCheckGroup.Items.clear; | |
− | == | + | ==以下も参照のこと== |
* [[doc:lcl/extctrls/tcheckgroup.html|TCheckGroup doc]] | * [[doc:lcl/extctrls/tcheckgroup.html|TCheckGroup doc]] | ||
− | * [[TCheckBox]] | + | * [[TCheckBox/ja]] |
− | * [[TGroupBox]] | + | * [[TGroupBox/ja]] |
{{LCL Components/ja}} | {{LCL Components/ja}} |
Latest revision as of 10:12, 24 March 2024
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
中文(中国大陆) (zh_CN) │
TCheckGroupは、コンテナコンポーネント上で物理的におよび論理的にグループ化されたTCheckBoxアイテムのグループを含むコントロールである。
TForm上でTCheckGroupを使用するには、単にコンポーネントパレットのStandardタブでそれを選択し、フォーム上でクリックして配置する。
例
フォームの背景色を変更する。この色は、個々の色成分を加算して決定される:
- 新しいアプリケーションを作成し、フォームにTCheckGroupを配置する。
- オブジェクトインスペクタで、CheckGroup1のNameプロパティをcgRedに変更し、キャプションをRedに変更する。
- cgRedにチェックボックスを追加する。
- オブジェクトインスペクタで、cgRedのItemsプロパティを選択する。
- [...]ボタンをクリックすると、文字列エディタが開く。
- 1 2 4 8 16 32 64 128と入力し、OKボタンをクリックしてエントリを完了する。
- フォーム上のcgRedを右クリックし、「コピー」をクリックしてこのTCheckGroupをコピーする。
- フォームを右クリックし、Insertをクリックして、名前がcgRed1のTCheckGroupが作成される。
- cgRed1のNameをcgGreenに変更し、CaptionをGreenに変更する。
- TCheckGroupを挿入し、その名前をcgBlueに変更し、キャプションをBlueに変更する。
- チェックボックスがクリックされるたびに、色が変わる。
- オブジェクトインスペクタで、cgRedのOnItemClickイベントハンドラを作成するために、OnItemClickイベントの隣の [...] ボタンをクリックする。
- cgGreenとcgBlueについても同じイベントハンドラを選択するために、OnItemClickイベントの隣にあるComboBoxでそれぞれcgRedItemClickを選択する。
- cgGreenとcgBlueに対しても同じイベントハンドラを選択するために、OnItemClickイベントの隣にあるコンボボックスでそれぞれcgRedItemClickを選択する。
- イベントハンドラに以下のコードを記述する:
procedure TForm1.cgRedItemClick(Sender: TObject; Index: integer);
var
i, c: Integer;
begin
c := $000000; // first the color is black
for i:=0 to 7 do begin // test Items 0..7 of all Checkgroups
if cgRed.Checked[i] then c := c + 1 shl i; // amount of red $000000..$0000FF
if cgGreen.Checked[i] then c := c + 1 shl (i + 8); // amount of green $000000..$00FF00
if cgBlue.Checked[i] then c := c + 1 shl (i + 16); // amount of blue $000000..$FF0000
end;
Color := c;
end;
- プログラムを実行すると、以下のように見えるだろう:
チェックボックスにアクセスする
TCheckGroup内の各アイテムにはCheckedプロパティがあり、それらをすべてチェック済みに設定するには、次のようにする。
for i := 0 to MyCheckGroup.items.Count-1 do // 見つかったすべてのカテゴリを調べる
MyCheckGroup.Checked[i] := true;
実行時にアイテムを追加するには、TCheckGroup.Itemsを使用する。これはTStringsリストである。新しいチェックボックスをセットに追加するには、単にMyCheckGroup.Items.add('CheckThis');を行う。同様に、すべてのアイテムを削除するには、リストをクリアする MyCheckGroup.Items.clear;
以下も参照のこと