Treeview - Deixar os subitems a amostra?

Delphi

24/06/2008

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.


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Steve_narancic

Steve_narancic

24/06/2008

treeview.FullExpand



GOSTEI 0
Adriano_servitec

Adriano_servitec

24/06/2008

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.


GOSTEI 0
Steve_narancic

Steve_narancic

24/06/2008

treeview.Selected.SelectedIndex



GOSTEI 0
Adriano_servitec

Adriano_servitec

24/06/2008

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;


GOSTEI 0
Adriano_servitec

Adriano_servitec

24/06/2008

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.


GOSTEI 0
POSTAR