procedure TForm1.TreeView1KeyPress(Sender: TObject; var Key: Char); var Node: TTreeNode; begin if Key=#13 then begin with TreeView1.Items do begin TreeView1.Items.Delete(TreeView1.Selected); Node := Insert(TreeView1.Selected,'mynewtext'); end; end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question