TCheckListBox/ja
From Lazarus wiki
Jump to navigationJump to search
│
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
polski (pl) │
русский (ru) │
A TCheckListBox はユーザーが複数の選択ができる(スクロールできる)チェックボックスのコンポーネントである。Component PaletteのAdditional tabにある。
使い方
TCheckListBoxは2つの部品からなってると考えること。左にチェックボックスを持つ、文字の入ったTListBoxである。この文字列は通常チェックボックスを選択するとユーザーが選択したものを現す。文字列はここに用いられるように配置され、例えば -
CheckListBox1.AddItem('Line One', Nil);
CheckListBox1.AddItem('Line Two', Nil);
または、すでに存在する文字列のリストのどこでも割り当てること -
CheckListBox1.Items.Assign(MyStringList);
そこで、わかる状態にチェックボックスを配置するのは良い考えで -
for I := 0 to CheckListBox1.Count-1 do
CheckListBox1.Checked[I] := False;
TCheckListBoxはユーザに好みの数だけ、あるいはまったく選択しないことを可能にする。0個の選択許すためにOnItemClickイベントを用い -
procedure TNoteBookPick.CheckListBox1ItemClick(Sender: TObject; Index: integer);
var
I : integer;
begin
if (Sender as TCheckListBox).Checked[Index] then begin
for I := 0 to CheckListBox1.Count -1 do
CheckListBox1.Checked[I] := False;
CheckListBox1.Checked[Index] := True;
end;
end;
例えばユーザーがチェックボックスを埋め終わったことを読み取るのに -
for I := 0 to CheckListBox1.Count -1 do
if CheckListBox1.Checked[I] then DebugLn('Checked Item ' + CheckListBox1.Items[I]);
TCheckGroupとの比較
Standard component paletteタブに類似した名前のTCheckGroupがある。違いは
1) TCheckGroupのアイテムは等幅になっているが、TCheckListBoxは下にスクロールできる。
2) TCheckListBox はAllowGrayedプロパティを持つ
以下も参照のこと