Fórum TreeView Fixo #209562

26/01/2004

0

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

Responder

Posts

26/01/2004

Brenoinfo

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


Responder

Gostei + 0

26/01/2004

Beppe

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. :(


Responder

Gostei + 0

27/01/2004

Nekas

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.


Responder

Gostei + 0

27/01/2004

Nekas

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


Responder

Gostei + 0

14/04/2008

N_informatica

TreeView1.FullExpand;
TreeView1.Repaint;


Responder

Gostei + 0

17/02/2009

Dr. Interbase

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar