gt;gt;gt; ListBox, mostrar sempre a última linha lt;lt;
Ae, estou inserindo dados em um ListBox, mas ao inserir a barra de rolagem que aparece ao lado não acompanha a insersão, tipo assim eu queria que ela fosse baixando, para que [b:ac9ad8616d]aparecesse sempre a última linha inserida.[/b:ac9ad8616d]
Valeu mesmo
Valmir.
Valeu mesmo
Valmir.
Anonymous
Curtidas 0
Respostas
(conta Desativada)
08/04/2003
Que código vc está usando para adicionar as linhas (só onde está listbox.items.add)... ?
GOSTEI 0
Anonymous
08/04/2003
Ta ae!
listbox1.Items.Add(datetostr(dataAtual));
application.ProcessMessages;
____________________________________________________________
´O verdadeiro heroísmo consiste em persistir por mais um momento quando tudo parece perdido´
listbox1.Items.Add(datetostr(dataAtual));
application.ProcessMessages;
____________________________________________________________
´O verdadeiro heroísmo consiste em persistir por mais um momento quando tudo parece perdido´
GOSTEI 0
Anonymous
08/04/2003
procedure TForm1.Button1Click(Sender: TObject);
var
I: Word;
begin
ListBox1.SetFocus;
for I := 0 to 15 do
begin
ListBox1.Items.Add(FormatDateTime(´DD/MM/YYYY HH24:MI:SS´,now));
ListBox1.ItemIndex := ListBox1.Items.Count - 1;
Sleep(1000);
end;
end;
var
I: Word;
begin
ListBox1.SetFocus;
for I := 0 to 15 do
begin
ListBox1.Items.Add(FormatDateTime(´DD/MM/YYYY HH24:MI:SS´,now));
ListBox1.ItemIndex := ListBox1.Items.Count - 1;
Sleep(1000);
end;
end;
GOSTEI 0
Dor_poa
08/04/2003
o comando ListBox1.ItemIndex := ListBox1.Items.Count - 1 não funciona?
GOSTEI 0