Seleccionar Treeview

[[Lepe]]

Añadido de estabilidad:

Código Delphi [-]
procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
  if Assigned(TreeView1.Selected) then
  With TreeView1.Selected do begin
    If Text = 'Suma' then ShowMessage('Click Suma');
    If Text = 'Resta' then ShowMessage('Click Resta');
  end
  else ShowMessage('seleccione un elemento del árbol');
end;

Ahora el código sabe si hay algún elemento seleccionado o no.

Saludos