treeview

jeg har en treeview og jeg vil have den til at oprette en NytItem når jeg ikke har mærkeret noget.

og hvis jeg mærkere noget så skal den opette en NytSubItem til den item jeg har mærkeret.


procedure TForm1.New1Click(Sender: TObject);
var
NytItem, NytSubItem : TTreeNode;
begin

if treeview1.Selected = true then
begin
NytItem := treeview1.selected.index;
NytSubItem := TreeView1.Items.AddChild(NytItem, 'sub item');
end;

if treeview1.Selected.Index = -1 then
begin
NytItem := TreeView1.Items.Add(nil, 'New item');
end;

end;

[Redigeret d. 06/05-04 17:04:04 af hasan]