Data zu Treeview hinzufügen ?

[Delphiturbo]

Hi

wie kann ich eine Data für jedes Child hinzufügen ?
Ich möchte einen Link für jedes Child zuzuweisen

Durch klick oder Doppelklick auf Child, soll die Seite in Webbrowser daneben aufgerufen werden

Delphi-Quellcode:

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 719
  Height = 368
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object TreeView1: TTreeView
    Left = 10
    Top = 10
    Width = 141
    Height = 311
    Indent = 19
    TabOrder = 0
    Items.Data = {
      01000000260000000000000000000000FFFFFFFFFFFFFFFF0000000002000000
      0D53756368656D616368696E656E1F0000000000000000000000FFFFFFFFFFFF
      FFFF000000000000000006676F6F676C651E0000000000000000000000FFFFFF
      FFFFFFFFFF0000000000000000057961686F6F}
  end
  object WebBrowser1: TWebBrowser
    Left = 170
    Top = 10
    Width = 531
    Height = 311
    TabOrder = 1
    ControlData = {
      4C000000E1360000252000000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
end

[mkinzler]

Definiere dir einen Recordtyp, von dem du dann einen pro Node zuweist.

[gibb]

TreeView.Items.AddChildObject()

ich hätts darüber gelösst.

[Delphiturbo]

Zitat:

Zitat von gibb

TreeView.Items.AddChildObject()

ich hätts darüber gelösst.

Wie Beispiel ?!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  oNewNode    : TTreeNode;

begin
          oNewNode := treeview1.Items.AddObject(nil, 'Suchmachinen', Nil);
          treeview1.Items.AddChildObject( oNewNode, 'google', Nil );
          treeview1.Items.AddChildObject( oNewNode, 'yahoo', Nil );
          // wie kann ich nun den Link zuweisen
// URL := 'www.google.de'; für google
// URL := 'www.yahoo.de'; für yahoo

[mkinzler]

Delphi-Quellcode:

type
    PMydata = ^TMyData;
    TMyData = Record
        Url: string;
    end;
...
procedure TForm1.Button1Click(Sender: TObject);
var  oNewNode    : TTreeNode;
     data: PMyData;
begin
          oNewNode := treeview1.Items.AddObject(nil, 'Suchmachinen', Nil);
          new(data);
          data.url := 'http://www.google.de';
          treeview1.Items.AddChildObject( oNewNode, 'google', data );
          new(data);
          data.url := 'http://www.yahoo.de';
          treeview1.Items.AddChildObject( oNewNode, 'yahoo', data );
...

[Nuclear-Ping]

Zitat:

Zitat von Delphiturbo

Wie Beispiel ?!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  oNewNode    : TTreeNode;

begin
          oNewNode := treeview1.Items.AddObject(nil, 'Suchmachinen', Nil);
          treeview1.Items.AddChildObject( oNewNode, 'google', Nil );
          treeview1.Items.AddChildObject( oNewNode, 'yahoo', Nil );
          // wie kann ich nun den Link zuweisen
// URL := 'www.google.de'; für google
// URL := 'www.yahoo.de'; für yahoo

Mein guter, das hatten wir doch gestern schon durchgekaut. Du hättest drauf kommen müssen, dass da wo "Nil" steht der Zeiger zu den Daten erwartet wird ... :roll:

[gibb]

:lol:

sollte so gehen wie meine nachfolgenden poster es geschrieben haben...

[Delphiturbo]

Es passiert aber nichts :cry:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  oNewNode    : TTreeNode;
     data: PMyData;
begin
          oNewNode := treeview1.Items.AddObject(nil, 'Suchmachinen', Nil);
          new(data);
          data.url := 'http://www.google.de';
          treeview1.Items.AddChildObject( oNewNode, 'google', data );
          new(data);
          data.url := 'http://www.yahoo.de';
          treeview1.Items.AddChildObject( oNewNode, 'yahoo', data );

end;

procedure TForm1.TreeView1DblClick(Sender: TObject);
var  oNewNode    : TTreeNode;
     data: PMyData;
begin
webbrowser1.Navigate(data);
end;

end.

[Nuclear-Ping]

Und woher soll er in TreeView1DblClick wissen, was du mit Data meinst? :gruebel:

[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;