über TIWTreeViewItem dazugehöriges TIWTreeView ermitteln

[hirnstroem]

'loha Folks,

ich arbeite zur Zeit mit IntraWeb.

Auf einem Formular befindet sich eine TIWTreeView dessen Items zur Laufzeit generiert und mit diversen Funktionen versehen werden. Im folgenden Beispiel wird einem hinzugefügten Item eine Caption sowie ein OnClick Ereignis zugewiesen.

Delphi-Quellcode:

  with Sender as TIWTreeView do
  begin
    with Items.Add do
    begin
      Caption := 'Fenster'
      OnClick := NavigationItemClick;
    end; 
  end;

In der OnClick Routine suche ich nun nach einer Möglichkeit anstatt auf das angeklickte TreeViewItem auf den TreeView selbst zuzugreifen, finde aber keinen Weg dies zu tun.

Delphi-Quellcode:

procedure TIWUserSession.NavigationItemClick(Sender: TObject);
begin
  (Sender as TIWTreeViewItem).Tag := 0; // funktioniert
  (Sender as TIWTreeview).Tag := 0; // funktioniert nicht...was auch Sinn macht
end;

Das TreeViewItem selbst hat nur ein ParentItem was selbst auch wieder ein TIWTreeViewItem ist, was mir auch nicht weiterhilft.

Lösungsvorschläge?

Grüsse
hirnstroem

[hirnstroem]

Aus einem unerklärlichen Grund ist die TreeView property eines TreeView-Items als protected deklariert. Daher muss man einen kleinen Trick anwenden:

Delphi-Quellcode:

type
  TIWTreeViewItemCracker = class (TIWTreeViewItem)
end;

Delphi-Quellcode:

procedure ...
var
  LTreeView: TIWTreeView;
begin
  LTreeView :=  TIWTreeViewItemCracker(Sender as TIWTreeViewItem).TreeView;
  ...
end;