Zitat von
marius0702:
Nein bei allen checkbox componenten bei onclick oder onchange.
Die ListView-CheckBoxes sind aber keine TCheckBox-Komponenten ...
. In der ListView geht auch OnChange.
[
OT]
Zitat von
marius0702:
Delphi-Quellcode:
procedure TForm1.CheckBoxMultiClick(Sender: TObject);
begin
Case (Sender as TCheckBox).Tag of
0: if CheckBox1.Checked then Listview1.items[0]:='Bla Bla';
1: if CheckBox2.Checked then ...;
2: if CheckBox3.Checked then ...;
3: if CheckBox4.Checked then ...;
4: if CheckBox5.Checked then ...;
5: if CheckBox6.Checked then ...;
6: if CheckBox7.Checked then ...;
7: if CheckBox8.Checked then ...;
end;
end;
Warum der gigantische Umweg
Delphi-Quellcode:
procedure TForm1.CheckBoxMultiClick(Sender: TObject);
var cb: TCheckBox;
begin
if not (Sender
is TCheckBox)
then
raise Exception.Create('
Ich bin ein Fehler');
cb := TCheckBox(Sender);
ListView1.Items[cb.Tag].Caption := BoolToStr(cb.Checked), True);
end;
[/
OT]