Ver se existem itens no TreeView e não mostrar Popup

Delphi

11/04/2005

olá pessoal
to penando com o Treeview.
eu tenho um treeview q tem ligado a ele um Menu Popup.
primeiro eu preciso contar se existem itens no treeview (os itens não tem child) e em segundo se não existir nenhum item não pode mostrar o popup, já que o popup tem uma opção Excluir, que elimina o node selecionado.

agradecido
Diogo


Diogoalles

Diogoalles

Curtidas 0

Respostas

Diogoalles

Diogoalles

11/04/2005

alguém aí pode me ajudar?
obrigado

Diogo


GOSTEI 0
Macario

Macario

11/04/2005

Olá programador

Não Testei mas veja se funciona


procedure TFrmCalen.TreeView1Click(Sender: TObject);
begin

  if (TreeView1.Items.Count > 2)  then
  PopupMenu1.AutoPopup := true
  else
  PopupMenu1.AutoPopup := false;

end;


Qualquer coisa estamos por aqui


GOSTEI 0
Diogoalles

Diogoalles

11/04/2005

Blz...
coloquei a rotina no evento OnEnter do Treeview e o count é (>= 1).

  if (Treeview.Items.Count >= 1)  then
    PopupMenu1.AutoPopup := true
  else
    PopupMenu1.AutoPopup := false;


abraço
Diogo


GOSTEI 0
POSTAR