Difference between revisions of "TTreeView/es"

From Lazarus wiki
Jump to navigationJump to search
m
Line 92: Line 92:
 
Espero que esta información sea de ayuda. Adicionalmente podéis cargar el proyecto de ejemplo que acompaña a Lazarus (tv_add_remove.lpi) o bien ver el tutorial que se encuentra en http://users.iafrica.com/d/da/dart/Delphi/TTreeView/TreeView.html
 
Espero que esta información sea de ayuda. Adicionalmente podéis cargar el proyecto de ejemplo que acompaña a Lazarus (tv_add_remove.lpi) o bien ver el tutorial que se encuentra en http://users.iafrica.com/d/da/dart/Delphi/TTreeView/TreeView.html
  
[[Category:Components]]
+
[[Category:Components/es]]
[[Category:Tutorials]]
+
[[Category:Tutorials/es]]

Revision as of 12:59, 14 July 2015

English (en) español (es) suomi (fi) français (fr) magyar (hu) русский (ru)

Añadir un nuevo elemento mediante código

Se puede añadir un nuevo elemento mediante TTreeView.Items.AddChild o bien AddChildObject.

Crear un TreeView que carga elementos solamente cuando se expande

Para añadir el símbolo de expansión a un nodo que no contiene subelementos escribimos la siguiente sentencia:

MiNodo.HasChildren := True;

Y establecemos un manejador de eventos para el evento OnExpanding. En este evento se debería retornar si se puede o no realizar la expansión y caso de que sea afirmativo se añadirían subelementos al nodo. Si la expansión no puede realizarse entonces desaparece automáticamente el símbolo de expansión incluso si previamente se ha establecido el valor de HasChildren a true.

Un pequeño ejemplo de uso de TTreeview

Aquí tenéis un ejemplo rápido e informal - testeado en Lazarus 0.9.26 bajo Windows:

Crear una nueva aplicación. En Form1 añadir un treeview vacío, un button1 con caption "Añadir hijo" y un button2 con caption "Borrar"

Para los buttons' con su evento OnClick, asignar el siguiente código, compilar y ejecutar.

Código:

procedure TForm1.Button1Click(Sender: TObject);
var 
  i: integer;
  s: string;
begin
  // si no hay nodos, crear un nodo raíz con un padre establecido al valor Nil
  if TreeView1.Items.Count = 0 then
    begin
      Treeview1.Items.Add (nil,'Nodo Raíz');
      exit;
    end;
 
  // Establer un texto simple para cada nuevo nodo: Nodo1 , Nodo2, etc
  i := treeview1.Items.Count; { nos retorna la cuenta total de elementos }
  s := 'Nodo ' + inttostr(i); { crea la cadena de texto 'Node ' más el número resultante de conversión de entero su }
  { equivalente en texto }
  // Añade un nuevo nodo al nodo actualmente seleccionado.
  if TreeView1.Selected <> nil then { Si tenemos seleccionado un nodo entonces hacer lo siguiente }
    Treeview1.Items.AddChild(Treeview1.Selected ,s); { Añadir un elemento como hijo al actualmente seleccionado }
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
  // Un procedimiento para borrar nodos recursivmente
  Procedure DeleteNode(Nodo:TTreeNode);
  begin
    while Nodo.HasChildren do DeleteNode(Nodo.GetLastChild); { mientras el nodo tenga hijos realizar borrado último nodo hijo }
    TreeView1.Items.Delete(Nodo) ; { borra nodo que ya no contiene nodos hijo } 
  end;
 
begin
  if TreeView1.Selected = nil then exit; { salir del borrado caso de que no tengamos seleccionado un nodo }
  // Si el nodo seleccionado tiene nodos hijo, primero preguntar por confirmación
  If treeview1.Selected.HasChildren then
    if messagedlg('¿Borrar nodo seleccionado y todos sus nodos hijo?',mtConfirmation,
                 [mbYes,mbNo],0) <> mrYes then exit; { Muestra mensaje de confirmación de borrado (pulsadores Si/No), caso de que }
                                                     { la contestación sea diferente de Si, entonces sale del if sin borrar nodo }
  DeleteNode(TreeView1.Selected); { Borra el nodo actualmente seleccionado }
end;

Cuando se ejecuta, el treeview está vacío,. Si se hace click en "Añadir hijo", se crea un nodo raíz. Después de esto se crea un nodo hijo en el nodo que tengamos seleccionado haciendo click en el pulsador "Añadir hijo".

El pulsador Borrar lo que hace es borrar el nodo actualmente seleccionado. Si no tiene nodos hijo lo borrara inmediatamente, pero si los tiene preguntará primero para confirmar su borrado.

Liberando los datos del TreeNode

Utilizar el evento OnDeletion de Treeview para liberar el objeto creado:

procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
  TMyObject(Node.Data).Free; { Libera los recursos asignados al objeto (así dejamos memoria libre para otros objetos)  }
end;

Utilizando Drag y Drop (arrastrar y soltar) en un TreeView

Si se quiere permitir la función de arrastrar y soltar en un treeview se necesita lo siguiente:

  1. Establecer la propiedad "Drag Mode" de treeview al valor DmAutomatic.
  2. Crear un evento del tipo "OndragOver" (solapa de eventos en el inspector de objetos):
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;  State: TDragState; var Accept: Boolean);
begin
  Accept := true;
end;

Espero que esta información sea de ayuda. Adicionalmente podéis cargar el proyecto de ejemplo que acompaña a Lazarus (tv_add_remove.lpi) o bien ver el tutorial que se encuentra en http://users.iafrica.com/d/da/dart/Delphi/TTreeView/TreeView.html