'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.

markieren

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.

markieren

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

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

markieren

Delphi-Quellcode:

type
  TIWTreeViewItemCracker = class (TIWTreeViewItem)
end;

markieren

Delphi-Quellcode:

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