Ich häng mich mal rein weil ich ein Ähnliches Problem Hab
ich Habe im Listview bei Items[0] die Checkboxen
in Items[2] einen Preis
wenn ich die Checkboxen aktiviere dann soll in einem Editfeld die preise Addiert werden
ich versuch das grad so
Delphi-Quellcode:
procedure TForm4.ListView1Click(Sender: TObject);
begin
if Listview1.Items[0].Checked then
Edit1.Text := InttoStr(StrtoInt(Edit1.Text) + StrtoInt(Listview1.items[2].Caption))
else
Edit1.Text := InttoStr(StrtoInt(Edit1.Text) - StrtoInt(Listview1.items[2].Caption));
end;