![]() |
Re: Data zu Treeview hinzufügen ?
Zitat:
Man muss wahrscheinlich ein Schleifer einbauen |
Re: Data zu Treeview hinzufügen ?
Springt der Debugger rein?
|
Re: Data zu Treeview hinzufügen ?
Lass dir mal den Inhalt von data.Url anzeigen:
Delphi-Quellcode:
procedure TForm1.TreeView1DblClick(Sender: TObject);
var oNewNode : TTreeNode; data: PMyData; begin data := (Sender as TTreeView).Selected.Data; if data <> Nil Caption := data.url else caption := ''; end; |
Re: Data zu Treeview hinzufügen ?
Zitat:
|
Re: Data zu Treeview hinzufügen ?
Type-casting?
Delphi-Quellcode:
procedure TForm1.TreeView1DblClick(Sender: TObject);
var data: PMyData; begin data := PMyData ((Sender as TTreeView).Selected.Data); webbrowser1.Navigate(data^.Url); end; Zitat:
|
Re: Data zu Treeview hinzufügen ?
Bist du dir sicher das du die Methode auch mit dem Event verbunden hast?
|
Re: Data zu Treeview hinzufügen ?
Danke sehr
es funktioniert endlich mit dem Code :
Delphi-Quellcode:
procedure TForm1.TreeView1DblClick(Sender: TObject);
var oNewNode : TTreeNode; data: PMyData; begin data := (Sender as TTreeView).Selected.Data; if data <> Nil then //Caption := data.url else caption := ''; Webbrowser1.Navigate(data.url); end; |
Re: Data zu Treeview hinzufügen ?
Ist auch nichts anderes als der Ursprungscode vom Markus? :gruebel:
|
Re: Data zu Treeview hinzufügen ?
Zitat:
Es hat aber mit dem Code oben funktioniert |
Re: Data zu Treeview hinzufügen ?
Aber wie können wir nun einen Link für Childern, die in Treeview1 bereits vorhanden sind zuweisen?
Was wir gemacht haben, wir haben alles mit einem Button erzeugt (Childern und Parents) und auch einen Link für jedes Child (sehe den Code ganz am Anfang) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:47 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz