Текущий архив: 2002.09.16;
Скачать: CL | DM;

Вниз

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

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

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

---

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

Страница Additional

---

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

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

---

← →
Ученик ©   (2002-09-04 21:21) [3]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.09.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c