Acceder al "data" de un treeview

[roman]

Supongo, así sin revisarlo mucho:

Código Delphi [-]
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
  TMiClase(Node.Data).Free;
end;

// Saludos

[[newtron]]

Ok. Gracias.

[ecfisa]

Hola newtron.

Me quedó en el tintero comentarte que no necesariamente tenes que crear una clase para el caso, en el enlace que puso Casimiro lo hice como ejemplo.

Otra forma que podrías usar la propiedad Data:

Código Delphi [-]
  ...
  Nodo1:=TreeView1.Items.AddChildObject(Nodo0, EDBQuery1.FieldByName('Name').AsString, EDBQuery1.GetBookmark);
  ..

Lo que te permite por ejemplo:

Código Delphi [-]
procedure TForm1.TreeView1Click(Sender: TObject);
var
  Nodo: TTreeNode;
  P: TPoint;
begin
  P:= ScreenToclient(Mouse.CursorPos);
  Nodo:= TreeView1.GetNodeAt(P.X, P.Y);
  if Nodo <> nil then
  begin
    EDBQuery1.GotoBookmark(Nodo.Data);
    ...
  end;
end;

Y si solo deseas almacenar el bookmark en los primeros nodos, deberías cambiar el condicional por:

Código Delphi [-]
     if (Nodo <> nil) and (Nodo.Level = 1) then

Saludos.

[[newtron]]

Empezado por ecfisa

Hola newtron.

Me quedó en el tintero comentarte que no necesariamente tenes que crear una clase para el caso, en el enlace que puso Casimiro lo hice como ejemplo.

Gracias amigo ecfisa.

[[Al González]]

Bueno, voy a meter mi cuchara también.

Es sobre esto:

Código Delphi [-]
  DataModule1.EDBQuery1.SQL.Clear;
  DataModule1.EDBQuery1.SQL.Add('SELECT * FROM FAMILIAS ORDER BY CODIGO');
  DataModule1.EDBQuery1.Open;
  DataModule1.EDBQuery1.First;

Podría ser simplemente:

Código Delphi [-]
  DataModule1.EDBQuery1.SQL.Text := 'SELECT * FROM FAMILIAS ORDER BY CODIGO';
  DataModule1.EDBQuery1.Open;

A no ser que en el evento AfterOpen o en algún momento similar muevas EDBQuery1 de registro, la llamada a First puede quitarse (al abrir un conjunto de datos éste se posiciona en su primera fila).

Lo de asignar la sentencia en Text en lugar de usar Clear + Add, se explica por sí mismo.

Saludos.

[[newtron]]

Empezado por Al González

Bueno, voy a meter mi cuchara también.

Es sobre esto:
Código Delphi [-] DataModule1.EDBQuery1.SQL.Clear; DataModule1.EDBQuery1.SQL.Add('SELECT * FROM FAMILIAS ORDER BY CODIGO'); DataModule1.EDBQuery1.Open; DataModule1.EDBQuery1.First;


Podría ser simplemente:
Código Delphi [-] DataModule1.EDBQuery1.SQL.Text := 'SELECT * FROM FAMILIAS ORDER BY CODIGO'; DataModule1.EDBQuery1.Open;


A no ser que en el evento AfterOpen o en algún momento similar muevas EDBQuery1 de registro, la llamada a First puede quitarse (al abrir un conjunto de datos éste se posiciona en su primera fila).

Lo de asignar la sentencia en Text en lugar de usar Clear + Add, se explica por sí mismo.

Saludos.

Bien bien... ahí te he visto fino....