Einzelnen Beitrag anzeigen

hsg

Registriert seit: 24. Apr 2006
Ort: Wustermark
354 Beiträge
 
Delphi 10.3 Rio
 
#2

Re: Tag-Werte von Items in TMS Komponente auslesen

  Alt 29. Mai 2007, 15:34
Delphi-Quellcode:
procedure TWebForm1.SideNavBar1_ItemClick(sender: System.Object; e: TMSWebControls.SideNavBarEventArgs);
var
  snp : SideNavPanel;
  sni : SideNavItem;
begin
  snp := SideNavPanel(SideNavBar1.Panels[e.PanelIndex]);
  sni := SideNavItem(snp.Items[e.ItemIndex]);
  Label1.Text := sni.Tag.ToString;
end;

Die beiden creates sind von dir erzeugte Speicherlöcher und nicht erforderlich.
SideNavBar1.Panels[e.PanelIndex] liefert dir nur ein TObject, das es vom Typ SideNavPanel ist, verrätst du dem Compiler durch den expliziten Type-Cast
  Mit Zitat antworten Zitat