Delphi-Quellcode:
procedure Test(Item: TListItem; i: Integer; Daten: TMeineDaten);
const
Schwadawum: array[Boolean] of String = ('nicht gesetzt.', 'gesetzt');
begin
//ShowMessage(Format('i ist: %d; Caption: %s', [i, Item.Caption]));
//ShowMessage(Format('Daten aus Bagage: %s und %d', [Daten.Str, Daten.Int]));
ShowMessage(Format('Die Checkbox ist %s', [Schwadawum[Item.Checked]]));
end;
EDIT:
Delphi-Quellcode:
for j := 0 to ListView1.Items.Count - 1 do
begin
if (not ListView1.Items[j].Checked) and ItemGefunden(ListView1.Items[j], i) then
Warum gehst du alle Items durch. Du hast doch das eine Item, das du angeklickt hast, doch geschickt. Du mußt nur das abfragen.