Ich habe alle Linke für Childern in ListBox1 sortiert gespeichert
ich habe in Treewiew 4 Childern
Google
Yahoo
MSN
GMX
dann habe ich in ListBox1 die Linke gespeichert :
http://google.de
http://yahoo.de
http://msn.de
http://gmx.de
Ich habe den Code so geschrieben :
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var node: TTreeNode;
Begin
node:=TreeView1.Items.GetFirstNode;
while node <> nil do
begin
if node.level = 1 then // nur Childern
Node.Data := // ich möchte nun den 1. Link vom ListBox1 holen. Und hier bitte ich euch um Hilfe
node := node.GetNext
end;
End;
Dann soll es mit dem Code funktionen :
Delphi-Quellcode:
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.