Treeview - Deixar os subitems a amostra?
24/06/2008
0
Tenho um treeview aonde tem um item e os subitems, mais só aparece os subitems se eu clicar no sinal de [+], gostaria de abrir o form com os subitems aparecendo.
Então pessoal, qual é a propriedade para fazer isso?
E também como eu faço para em cada SubItem que eu der um cclique mostrar uma mensagem diferente em um label.
Adriano_servitec
Posts
24/06/2008
Adriano_servitec
treeview.FullExpand
procedure TfrmEnvioemail.TreeView1Change(Sender: TObject; Node: TTreeNode); begin if TreeView1.Selected.Item = 1 then Label2.Caption := ´Caixa de Saída´ else Label2.Caption := ´Itens Enviados´; end;
Mais acho que não é bem assim.
24/06/2008
Adriano_servitec
treeview.Selected.SelectedIndex
Quase [b:9c07c85720]steve_narancic[/b:9c07c85720]
Mais será que não é neste evento aqui?
procedure TfrmEnvioemail.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if TreeView1.Selected.SelectedIndex = 1 then
Label2.Caption := ´Caixa de Saída´
else if TreeView1.Selected.SelectedIndex = 2 then
Label2.Caption := ´Items Enviados´
else if TreeView1.Selected.SelectedIndex = 3 then
Label2.Caption := ´Items Retornados´;
end;
24/06/2008
Adriano_servitec
procedure TfrmEnvioemail.TreeView1Change(Sender: TObject; Node: TTreeNode); var RootNode :TTreeNode; begin // buscamos o nó no 1º nível RootNode := Node; case RootNode.Index of 0 : // primeiro nó no 1º nível Label2.Caption := ´Caixa de Saída´; 1 : // segundo nó no 1º nível Label2.Caption := ´Items Enviados´; 2: // terceiro nó no 1º nível Label2.Caption := ´Items Retornados´; else Label2.Caption := ´Nada Processado´; end; end;
Obrigado amigo, valeu pela ajuda ai.
Clique aqui para fazer login e interagir na Comunidade :)