Link in ListBox und TTreeview !

[Nuclear-Ping]

Objekt-Beispiel:

Delphi-Quellcode:

type
  TMyLink = record
    Name,
    URL: String;
  end;
  PMyLink = ^TMyLink;

// ...

procedure TForm1.FormCreate(...);
var
  Data: PMyLink;
begin
  New (Data);
  Data^.Name := 'Google';
  Data^.URL := 'www.google.de';
  ListBox1.AddItem (Data^.Name, Integer (Data));

  New (Data);
  Data^.Name := 'AOL';
  Data^.URL := 'www.aol.de';
  ListBox1.AddItem (Data^.Name, Integer (Data));
  
  // ...
end;

procedure TForm1.FormDestroy(...);
var
  Data: PMyLink;
  i: Integer;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    begin
      Data := PMyLink (ListBox1.Items.Objects[i]);
      Dispose (Data);
    end;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
  i: Integer;
  Data: PMyLink;
begin
  i := ListBox1.ItemIndex;
  if (i < 0) then
    Exit;
  Data := PMyLink (ListBox1.Items.Objects[i]);
  Webbrowser1.Navigate('http://' + Data^.URL);
end;

... ungetestet.

[Delphiturbo]

Fehler in 2. Linie

Delphi-Quellcode:

  Data^.URL := 'www.google.de';
  ListBox1.AddItem (Data^.Name, Integer (Data)); // incompatible Types : Object and Integer !

Aber bis jetzt ist dieser Vorschlag diese Lösung :

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
I:Integer;
begin
i := ListBox1.ItemIndex;
Webbrowser1.Navigate(ListBox2.Items.Strings[i]);
end;

Wie kann ich diesen Trik in TTreeview machen ?
In TTreeview gibt es leider Parent und Child.

Wie soll der Code oben sein, wenn ich statt ListBox, einen TTreeview nehme
Was mir bei TTreeview gefäht, man kann Icons dazu verwenden
http://users.iafrica.com/d/da/dart/D...ics/Levels.gif
Oder kann man auch bei ListBox genauso Icons hinzufügen ?

[Nuclear-Ping]

1.)

Delphi-Quellcode:

Data^.URL := 'www.google.de';
ListBox1.AddItem (Data^.Name, TObject (Data));

2.)
Im Grunde kannst du alles in alles zeichnen, auch Bilder in eine TListBox, wenn du es per "OwnerDraw" machst. Kann aber recht umständlich für einen Anfänger sein. Such mal danach, Google oder so. TListBox Owner Draw.

[Delphiturbo]

Hier ist ein gutes Beispiel mit Source
aber der Inhalt in ListBox nach Compilieren wird nicht angezeigt, sondern nur die Icons und Bilder-Namen (sehe) Anhang vor und nach Compilieren :
http://www.greatis.com/delphicb/tips...ckgraphic.html

Woran kan das Liegen !?

[Nuclear-Ping]

Hat das jetzt noch was mit dem ursprünglichen Thema zu tun? Scheint mir nich so. Mach bitte einen neuen Thread auf. Neue Frage -> Neuer Thread. Auch müßte dir die SuFu und Google zum Thema ListBox, TreeView und OwnerDraw einiges ausspucken.

[Delphiturbo]

Es funktioniert sehr gut, Danke !

aber es stimmt was nicht mit Ondestroy :

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
var
  //Data: PMyLink; // !!!
  Data: TObject;  // so geändert
  i: Integer;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    begin
      Data := ListBox1.Items.Objects[i];
      Dispose (Data); // incompatibl Types
    end;
end;

[Nuclear-Ping]

Delphi-Quellcode:

procedure TForm1.FormDestroy(...);
var
  Data: PMyLink;
  i: Integer;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    begin
      Data := PMyLink (ListBox1.Items.Objects[i]); // <<
      Dispose (Data);
    end;
end;

[Delphiturbo]

Danke! Es funktioniert sehr gut.

Aber die ListBox1-Icons werden damit nicht angezeigt. Ja logisch, da wir mit dem Code drauf zeichnen

Wie kann ich ausser Name, URL, auch Icons und Quickinfo dazu in ListBox zuweisen?

Delphi-Quellcode:

New (Data);
  Data^.Name := 'Google';
  Data^.URL := 'www.google.de';
  Data^.Bitmap := ???
  Data^.Hint := ???
  ListBox1.AddItem (Data^.Name, Integer (Data));