TreeView Fixo

Delphi

26/01/2004

Galera, estou precisando de um help.

Fiz um sistema onde foi colocado como menu de opções uma TreeView, com seus itens e subitens, gostaria de saber como eu faço para deixar todo o conteudo expandido e fixo toda vez que o sistema estiver sendo executado.

Grato,


Nekas

Nekas

Curtidas 0

Respostas

Brenoinfo

Brenoinfo

26/01/2004

poderia me ajudar como vc faz para chamar os forms eu fiz desse jeito mas nao consigo chamar os forms


GOSTEI 0
Beppe

Beppe

26/01/2004

Você expande com TreeView1.ExpandAll(True);
No evento OnCollapse do treeview, cancele a operação.

Eu sei que fui meio superficial, mas não lembro bem de cabeça. :(


GOSTEI 0
Nekas

Nekas

26/01/2004

Beppe, Grato pela dica, vou tentar.

Abraço,

Nekas :wink:

_______________________________________________

Você expande com TreeView1.ExpandAll(True);
No evento OnCollapse do treeview, cancele a operação.

Eu sei que fui meio superficial, mas não lembro bem de cabeça.


GOSTEI 0
Nekas

Nekas

26/01/2004

brenoinfo,

Cara, eu não sou nenhum programador profissional, mas fiz o seguinte.

No evento onclick do treeview, coloque esta programação:

if treeView.Items.Item[0].Selected = true then
form.showmodal

Espero que te ajude.

Nekas :!:


___________________________________________________________
poderia me ajudar como vc faz para chamar os forms eu fiz desse jeito mas nao consigo chamar os forms


GOSTEI 0
N_informatica

N_informatica

26/01/2004

TreeView1.FullExpand;
TreeView1.Repaint;


GOSTEI 0
Dr. Interbase

Dr. Interbase

26/01/2004

Galera, deste jeitio funcionou, consegui depois de 3 dias de buscas nos foruns, segue parte do meu fonte. assim dá para entender muito bem
no evento onclick do treeview onde TVmenulateral é o treeview

procedure TFrm_principal.TVMenuLateralClick(Sender: TObject);
begin
If (TVMenuLateral.selected.Text = ´Sair´) then
Begin
Sair2Click(Sair2);
sairMenu;
End
Else
If (TVMenuLateral.selected.Text = ´Parâmetros´) then
Begin
Parametros1Click(Parametros1);
sairMenu;
End
Else
If (TVMenuLateral.selected.Text = ´Agenda de endereços´) then
Begin
Agenda1Click(Agenda1);
sairMenu;
End
Else


GOSTEI 0
POSTAR