Data zu Treeview hinzufügen ?

[Delphiturbo]

Zitat von mkinzler:

Delphi-Quellcode:

procedure TForm1.TreeView1DblClick(Sender: TObject);
var  oNewNode    : TTreeNode;
     data: PMyData;
begin
    data := (Sender as TTreeView).Selected.Data;
    webbrowser1.Navigate(data.Url);
end;

Durch Doppelklick auf Child passiert auch nichts !!!
Man muss wahrscheinlich ein Schleifer einbauen

[Die Muhkuh]

Springt der Debugger rein?

[mkinzler]

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;

[Delphiturbo]

Zitat von Die Muhkuh:

Springt der Debugger rein?

Nein. Kein error !

[Nuclear-Ping]

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 von Delphiturbo:

Zitat von Die Muhkuh:

Springt der Debugger rein?

Nein. Kein error !

Du sollst nen Breakpoint setzen ...

[mkinzler]

Bist du dir sicher das du die Methode auch mit dem Event verbunden hast?

[Delphiturbo]

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;

[Die Muhkuh]

Ist auch nichts anderes als der Ursprungscode vom Markus?

[Delphiturbo]

Zitat von mkinzler:

Bist du dir sicher das du die Methode auch mit dem Event verbunden hast?

Ich werde noch einmal überprüfen
Es hat aber mit dem Code oben funktioniert

[Delphiturbo]

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)