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
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|