listbox
Ola Pessoal
Eu estou com o seguinte para fazer tenho uma ibquery que me listas historicos incluidos para os devedores de uma empresa como o conteudo em um campo blod, o cliente quer que seja listado todo o conteudo da pesquiza em um so lugar, pensei em jogar tudo em um listbox, mas nao estou conseguindo.
A ibquery é assim :
with IBQHistorico do
begin
close;
sql.Clear;
sql.add(´select * from DB_13 where coddev=´+ DM.IBTbRequeridosCODDEV.Text);
sql.add(´order by data descending´);
open;
end;
depois dele listada tento jogar em um listbox ?
pois o conteudo e grande e ele quer poder usar tipo o scrool do mouse para navegar nos dados.
espero ter explicado direito .
uso DELPHI 7 / FIREBIRD 2.0
Obrigado por enquanto.
Eu estou com o seguinte para fazer tenho uma ibquery que me listas historicos incluidos para os devedores de uma empresa como o conteudo em um campo blod, o cliente quer que seja listado todo o conteudo da pesquiza em um so lugar, pensei em jogar tudo em um listbox, mas nao estou conseguindo.
A ibquery é assim :
with IBQHistorico do
begin
close;
sql.Clear;
sql.add(´select * from DB_13 where coddev=´+ DM.IBTbRequeridosCODDEV.Text);
sql.add(´order by data descending´);
open;
end;
depois dele listada tento jogar em um listbox ?
pois o conteudo e grande e ele quer poder usar tipo o scrool do mouse para navegar nos dados.
espero ter explicado direito .
uso DELPHI 7 / FIREBIRD 2.0
Obrigado por enquanto.
Pattarelli
Curtidas 0
Respostas
Emerson Nascimento
08/10/2008
você não pode ligar num DBMemo ou DBRichEdit?
GOSTEI 0
Pattarelli
08/10/2008
Entao caro amigo eu consegui testa forma ai depois de ter postado
so que agora esbarrei em outro obstaculo a velocidade com que é inserido os dados e com quebra de linha, mas nao pensei na sua dica vou testar depois eu posto de novo.
Valew....
with IBQHistorico do
begin
close;
sql.Clear;
sql.add(´select * from DB_13 where coddev=´+ DM.IBTbRequeridosCODDEV.Text);
sql.add(´order by data descending´);
open;
while NOT EOF do
begin
ListBox1.Items.Add(FieldByName(´histdesc´).AsString+#9);
Next;
end;
end;
so que agora esbarrei em outro obstaculo a velocidade com que é inserido os dados e com quebra de linha, mas nao pensei na sua dica vou testar depois eu posto de novo.
Valew....
with IBQHistorico do
begin
close;
sql.Clear;
sql.add(´select * from DB_13 where coddev=´+ DM.IBTbRequeridosCODDEV.Text);
sql.add(´order by data descending´);
open;
while NOT EOF do
begin
ListBox1.Items.Add(FieldByName(´histdesc´).AsString+#9);
Next;
end;
end;
GOSTEI 0
Pattarelli
08/10/2008
A velocidade esta legal para o usuario , agora presciso fazer uma quebra de linha dentro do listbox.
se alguem tiver uma dica .
obrigado
se alguem tiver uma dica .
obrigado
GOSTEI 0
Pattarelli
08/10/2008
ai esta o link com a dica que me ajudou a terminar o que prescisava no listbox
https://www.devmedia.com.br/articles/viewcomp.asp?comp=977
e esta é a unica correcao(em destaque) que fiz nele para dar certo ,
ListBox1.OnMeasureItem := ListBox[size=18:e991a9eb90]1[/size:e991a9eb90]MeasureItem;
ListBox1.OnDrawItem := ListBox[size=18:e991a9eb90]1[/size:e991a9eb90]DrawItem;
ListBox1.Style := lbOwnerDrawVariable;
vou encerrar este topico por aqui.
obrigado a todos que me ajudaram .
https://www.devmedia.com.br/articles/viewcomp.asp?comp=977
e esta é a unica correcao(em destaque) que fiz nele para dar certo ,
ListBox1.OnMeasureItem := ListBox[size=18:e991a9eb90]1[/size:e991a9eb90]MeasureItem;
ListBox1.OnDrawItem := ListBox[size=18:e991a9eb90]1[/size:e991a9eb90]DrawItem;
ListBox1.Style := lbOwnerDrawVariable;
vou encerrar este topico por aqui.
obrigado a todos que me ajudaram .
GOSTEI 0