| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
educdc
Novato
Registrado: Terça-Feira, 13 de Fevereiro de 2007
Mensagens: 7
|
 Enviada: Seg Set 08, 2008 10:36 pm Assunto: [DÚVIDA] Como sincronizar dois ListBox? |
 |
|
Aee... Blz?
Dúvida é a seguinte:
Tenho dois listbox como na figura:
O 1º mostra a data do mes e o 2º o dia da semana correspondente a data.
Preciso sincronizar estes lisboxs de forma q o usuário role a barra de rolagem do listbox1 e a barra de rolagem do listbox2 tbm role automatico.
Alguem tem alguma sugestão?
Vlws
Abraços a tdoss!!  |
|
| Voltar ao Topo |
|
 |
jorgemesquita
Aprendiz
Registrado: Sexta-Feira, 20 de Junho de 2008
Mensagens: 241
Localização: DF
|
| Enviada: Ter Set 09, 2008 9:44 am Assunto: Re: [DÚVIDA] Como sincronizar dois ListBox? |
|
|
| educdc escreveu: | Aee... Blz?
Preciso sincronizar estes lisboxs de forma q o usuário role a barra de rolagem do listbox1 e a barra de rolagem do listbox2 tbm role automatico.
|
cara tenta assim...
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox2.ItemIndex:=ListBox1.ItemIndex;
end; |
|
| Voltar ao Topo |
|
|
educdc
Novato
Registrado: Terça-Feira, 13 de Fevereiro de 2007
Mensagens: 7
|
| Enviada: Ter Set 09, 2008 8:31 pm Assunto: |
|
|
Aee!!
Essa dica n funcionou n...
NO aguardo de novas sugestões!!
Vlws!
Abraços! |
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Qua Set 10, 2008 9:33 am Assunto: |
|
|
só vc olhar o Help.
tem mt cois q é sujestiva!!!!!!!!
| Código: | procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox2.ItemIndex := ListBox1.ItemIndex;
ListBox2.TopIndex := ListBox1.TopIndex;
end; |
|
|
| Voltar ao Topo |
|
|
jorgemesquita
Aprendiz
Registrado: Sexta-Feira, 20 de Junho de 2008
Mensagens: 241
Localização: DF
|
| Enviada: Qua Set 10, 2008 10:29 am Assunto: Re: [DÚVIDA] Como sincronizar dois ListBox? |
|
|
cara faz esse teste... isto não é a solução do teu problema mas vai te da uma luz.... cria um novo projeto e coloca o código abaixo...
ha cria uma variavel global....... ItemAtu:Integer;
| Código: | procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox2.Items.LoadFromFile('unit1.pas');
ItemAtu:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ItemAtu:=ItemAtu+1;
ListBox2.Perform(LB_SETTOPINDEX,ItemAtu,1);
end;
|
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
