Berlin: TListViewItem Parent?

[Uwe Raabe]

Du könntest mal folgenden Code versuchen (kann das gerade nicht selbst probieren). Kann man vielleicht auch noch eleganter gestalten.

Delphi-Quellcode:

type
  TAppearanceObjectsHelper = class helper for TAppearanceObjects
    function GetParentControl: TControl;
    property ParentControl: TControl read GetParentControl;
  end;

function TAppearanceObjectsHelper.GetParentControl: TControl;
begin
  Result := OwnerControl;
end;

Function GetParent(const AListItem: TListViewItem): TListView;
begin
  result := AListItem.Objects.Appearance.ParentControl as TListView;
end;