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.