![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TCheckListBox [D6, Win95/98, WinME, WinXP]
БезИмени © (2002-09-04 20:39:00)Нужен компонент TCheckListBox при щелчке пункта которого, его состояние менялось: Checked=true и наоборот при повторном щелчке.
Ученик (2002-09-04 21:21:00) [1]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;
БезИмени (2002-09-04 21:00:00) [2]Он срабатывает когда щелкаеш по самому квадратику, а нужно, что срабатывал и при щелчке по квадратику и при щелчке по параметру (записи).
Ученик (2002-09-04 20:50:00) [3]Страница Additional