Delphi-PRAXiS
Seite 2 von 6     12 34     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Data zu Treeview hinzufügen ? (https://www.delphipraxis.net/112866-data-zu-treeview-hinzufuegen.html)

Delphiturbo 28. Apr 2008 17:55

Re: Data zu Treeview hinzufügen ?
 
Zitat:

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 28. Apr 2008 17:56

Re: Data zu Treeview hinzufügen ?
 
Springt der Debugger rein?

mkinzler 28. Apr 2008 17:57

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;

Delphiturbo 28. Apr 2008 17:58

Re: Data zu Treeview hinzufügen ?
 
Zitat:

Zitat von Die Muhkuh
Springt der Debugger rein?

Nein. Kein error !

Nuclear-Ping 28. Apr 2008 17:59

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:

Zitat von Delphiturbo
Zitat:

Zitat von Die Muhkuh
Springt der Debugger rein?

Nein. Kein error !

Du sollst nen Breakpoint setzen ... ;)

mkinzler 28. Apr 2008 17:59

Re: Data zu Treeview hinzufügen ?
 
Bist du dir sicher das du die Methode auch mit dem Event verbunden hast?

Delphiturbo 28. Apr 2008 18:03

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;

Die Muhkuh 28. Apr 2008 18:04

Re: Data zu Treeview hinzufügen ?
 
Ist auch nichts anderes als der Ursprungscode vom Markus? :gruebel:

Delphiturbo 28. Apr 2008 18:04

Re: Data zu Treeview hinzufügen ?
 
Zitat:

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 28. Apr 2008 18:44

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.
Seite 2 von 6     12 34     Letzte »    

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