Link in ListBox und TTreeview !

[Delphiturbo]

Hi

Mein ListBox und Mein TTreeView sind wie Contents (Inhaltsverzeichnis)

Wenn Ich auf einen text in ListBox doppelklicke dann soll die Datei in Webbrowser aufgerufen werden :

Delphi-Quellcode:

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

Ich möchte aber in ListBox den Link nicht schreiben sondern nur den Titel
also z.B.
google und nicht http ://google.de

hat jemand eine Idee?

[Der.Kaktus]

Hallo,

Delphi-Quellcode:

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

so vielleicht?

[Dbof]

Wie wärs damit ?

Delphi-Quellcode:

i := ListBox1.ItemIndex;
Webbrowser1.Navigate('http://www.'+ListBox1.Items.Strings[i]+'.de');

'da war wohl jemand schneller'

[Die Muhkuh]

Was machst Du, wenn man auf google.com will?

[Der.Kaktus]

Zitat:

Zitat von Die Muhkuh

Was machst Du, wenn man auf google.com will?

Gute Frage :thumb: (obwohl ich '+.de') eh vergessen habe.

[Fussball-Robby]

Du führst eine Liste (TStrings) mit den vollständigen Adressen der Seiten und befüllst die Listbox nur mit den Namen. Beim Doppelklick nimmst du dann aus der Liste den Eintrag an der Stelle des aktuellen ItemIndex der Listbox.

Mfg

[Die Muhkuh]

Oder Du hängst ein Objekt an die Items, in dem weitere Informationen stehen.

[Delphiturbo]

Zitat:

Zitat von Die Muhkuh

Oder Du hängst ein Objekt an die Items, in dem weitere Informationen stehen.

Der Vorschlag von Fussball-Robby und von Muhkuh sind wahrscheinlich
die beste Lösung.
könnt Ihr ein Beispiel schreiben ! Ich verstehe nicht ganze

[toms]

Ein gutes TreeView Tutorial findest du hier

[Delphiturbo]

Ich habe zusätzlich ein ListBox2 auf meine Form aber Invisible und drauf die Link-Liste
hinzugefügt :

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
I:Integer;
begin

i := ListBox1.ItemIndex;
Webbrowser1.Navigate(ListBox2.Items.Strings[i]);

end;

Vielleicht das ist was die Leute meinen

Zitat:

Zitat von toms

Ein gutes TreeView Tutorial findest du hier

Ja, habe ich auch durchgelesen. Man kann auch Icons für Items hinzufügen, was bei ListBox nicht möglich ist. in die Tutorials steht leider nicht über den Link !

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