Treeview - Deixar os subitems a amostra?

24/06/2008

1

Pessoal,

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.


Responder

Posts

24/06/2008

Steve_narancic

treeview.FullExpand



Responder
treeview.FullExpand
Obrigado amigo, resolveu, mais sobre o label ainda não sei como fazer, pensei em algo assim

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.


Responder

24/06/2008

Steve_narancic

treeview.Selected.SelectedIndex



Responder
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;


Responder
Já resolvi
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.


Responder