Mange Tak!
MVH
OSSI
"Allan Prang" <allanprang@vip.cybercity.dk> skrev i en meddelelse
news:920bij$413$1@news.cybercity.dk...
> Hej Ossi
>
> Såre simpelt. Drop et TreeView og en button på formen og tilføj følgende
> event
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> MyTreeNode1, MyTreeNode2: TTreeNode;
> begin
> with TreeView1.Items do
> begin
> Clear; { remove any existing nodes }
> MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node }
> { Add a child node to the node just added }
> AddChild(MyTreeNode1,'ChildNode1');
>
> {Add another root node}
> MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
> {Give MyTreeNode2 to a child }
> AddChild(MyTreeNode2,'ChildNode2');
>
> {Change MyTreeNode2 to ChildNode2 }
> { and add a child node to it}
> MyTreeNode2 := TreeView1.Items[3];
> AddChild(MyTreeNode2,'ChildNode2a');
>
> {Add another child to ChildNode2, after ChildNode2a }
> Add(MyTreeNode2,'ChildNode2b');
>
> {add another root node}
> Add(MyTreeNode1, 'RootTreeNode3');
> end;
> end;
>
> Dette eksempel står iøvrigt på side 8783 i hjælp.
>
> /ap
>
>
> Ossi <ossipoff@get2net.dk> skrev i en
> nyhedsmeddelelse:gHM06.184$UF3.4157@news.get2net.dk...
> > Hej Nyhedsgruppe,
> > -----------------------------
> > Jeg har et lille problem mod TreeView.
> > Hvordan gør man sådan at når man trykker på Button1 så opretter den et
> Item
> > med et SubItem?
> >
> > Det er som det eneste i dette lille spørgsmål!
> >
> > MVH
> > Ossi (InterSoft)
> >
www.whitehat.dk/intersoft
> >
> >
>
>