Es funktioniert endlich
aber leider wird immer der Link von GMX aufgerufen und egal wo ich klicke
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var node: TTreeNode;
I: Integer;
data: PMyData;
Begin
node:=TreeView1.Items.GetFirstNode;
while node <> nil do
begin
if node.level = 1 then
for i:= 0 to 3 do
data.Url := ListBox1.Items[i];
new( data);
Node.Data := data;
node := node.GetNext;
end;
End;
procedure TForm1.TreeView1DblClick(Sender: TObject);
var oNewNode : TTreeNode;
data: PMyData;
begin
data := (Sender as TTreeView).Selected.Data;
if data <> Nil then
Webbrowser1.Navigate(data.url);
end;
end.
ListBox1 Inhalt :
Delphi-Quellcode:
[
url]http:
//google.de[/url]
[
url]http:
//yahoo.de[/url]
[
url]http:
//msn.de[/url]
[
url]http:
//gmx.de[/url]