Hallo,
hab jetzt kein XE7 am Start. Bei der (direkten) Zuweisung von Objekten ignoriert XE4 scheinbar alles was nicht nach Bitmap "riecht". Was die 7er Version macht kann ich nicht sagen.
So könnte es vielleicht klappen:
Delphi-Quellcode:
// Definition
type
Tooo = class(Tobject)
i: Integer;
end;
var
o : Tooo;
i : TListViewItem;
c : TClass;
// Zuweisen
o := Tooo.Create;
o.i := 5;
i := ListView1.Items.Add;
i.Data['odata'] := TClass (o);
// Auslesen
i := ListView1.Selected;
c := i.Data['odata'].AsClass;
if Assigned (c) and (TObject (c).ClassName = 'Tooo') then
ShowMessage (IntToStr (Tooo(c).i))
Speicher freigeben nicht vergessen.
Gruß