TCheckListBox

← →
БезИмени (2002-09-04 20:39) [0]

Нужен компонент TCheckListBox при щелчке пункта которого, его состояние менялось: Checked=true и наоборот при повторном щелчке.

← →
Ученик © (2002-09-04 20:50) [1]

Страница Additional

← →
БезИмени (2002-09-04 21:00) [2]

Он срабатывает когда щелкаеш по самому квадратику, а нужно, что срабатывал и при щелчке по квадратику и при щелчке по параметру (записи).

TForm1 = class(TForm)
private
{ Private declarations }
FToggleCheck : Boolean;

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
with CheckListBox1 do if FToggleCheck and (ItemIndex <> -1) then
Checked[ItemIndex] := not Checked[ItemIndex];
FToggleCheck := True
end;

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
FToggleCheck := False
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FToggleCheck := True
end;

TCheckListBox Найти похожие ветки