Criar ListBox�s em RunTime

Question

Ol� Pessoal,Utilizo Delphi 7 e Firebird 1.5.No meu banco tenho duas tabelas, sendo uma delas a Mestre e a outra a Detalhe, sao elas:[u:1736f4c778]Pedidos[/u:1736f4c778]CD_PEDIDODT_PEDIDOHR_PEDIDOCD_CL...

Imoreira · Answer

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
combo:tComboBox;
altura,x:integer;

begin
for x:=form1.ControlCount-1 downto 0 do begin
form1.Controls[x].Destroy[color=blue:2946171827];// destroi os combos anteriormente criados;[/color:2946171827]
end;

tbPedidos.first;
altura:=2;
while not tbPedidos.eof do begin
combo:=tComboBox.Create(self);
combo.Top:=altura;
combo.Left:=5;
combo.parent:=form1;
combo.Style:=csDropDownList;
while not tbProdutos.eof do begin
combo.items.Add(tbProdutoscd_produto.asstring[color=blue:2946171827]{coloque aqui o campo que voce quizer}[/color:2946171827]);
tbProdutos.Next;
end;
inc(altura,23);
tbPedidos.next;
end;
end;

Diogoalles · Answer

Blz Moreira... show de bola..s� mais uma d�vida, se eu tiver 2 panels neste form, ainda posso especificar dentro de qual Panel gostaria de criar ?abra�oDiogo...

Imoreira · Answer

isso � definido na propriedade [color=blue:cb07b87060]parent[/color:cb07b87060].
Onde l�-se: combo.parent:=form1,
coloque combo.parent:=[color=blue:cb07b87060]{nome do seu panel}[/color:cb07b87060]

Diogoalles · Answer

Gostaria de deixar um pouco mais complexo meu problema.
Ap�s criar em run-time os ListBox�s eu ainda tenho neste meu form um Edit1.
Ent�o, gostaria que ao clicar em um dos LIstBox�s criados, que receberam seus devidos valores, este valor que eu clicar apare�a no Edit, resumindo tamb�m preciso criar o evento OnClick em Runtime ou algo parecido que adicione o texto selecionado ListBox a um Edit.

agrade�o

Diogo

Massuda · Answer

Talvez [url=//forum.clubedelphi.net/viewtopic.php?t=57173]este t�pico[/url] do f�rum seja �til para voc�....

Diogoalles · Answer

Ok Massuda, valeu a dica,Mas acho que n�o estou conseguindo ligar as pontas, ser� q poderiam me dar um aux�lio?Criei os ListBox�s dinamicamente conforme o iMoreira passou.A� eu crio uma procedure chamada ListBox_Clique que ficaria assim:[code:1:44cece377a]procedure Listbox_Clique(ListBox:TListBox);begin  Edit1.Text := ListBox.Items&#91;ListBox.ItemIndex&93;;end[/code:1:44cece377a]O que n�o estou conseguindo � Ligar esta procedure (se ela estiver certa) ao ListBox dinamico que estou clicando... no caso se eu tiver 3 ListBox�s que foram criados dinamicamente como vou saber se � o ListBox1, 2 ou 3 que est� sendo clicado? como vou ligar a procedure?ser� q deu pra enteder?? hehe , espero que simagradecidoDiogo....

Massuda · Answer

[quote:e068fc40cf=�diogoalles�]A� eu crio uma procedure chamada ListBox_Clique que ficaria assim...[/quote:e068fc40cf]Como o tratador do evento OnClick � um TNotifyEvent, seu c�digo deveria ser algo parecido com isso:[code:1:e068fc40cf]procedure TSeuForm.ListBoxClick(Sender: TObject);var  ListBox: TListBox;begin  ListBox := Sender as TListBox;  Edit1.Text := ListBox.Items&#91;ListBox.ItemIndex&93;;end[/code:1:e068fc40cf][quote:e068fc40cf=�diogoalles�]no caso se eu tiver 3 ListBox�s que foram criados dinamicamente como vou saber se � o ListBox1, 2 ou 3 que est� sendo clicado...[/quote:e068fc40cf]Voc� pode usar a propriedade [b:e068fc40cf]Tag[/b:e068fc40cf] dos listboxes criados dinamicamente exatamente como faria se os listboxes tivessem sido criados na IDE.[quote:e068fc40cf=�diogoalles�]como vou ligar a procedure?[/quote:e068fc40cf]Voc� faz isso quando cria o listbox:[code:1:e068fc40cf]...ListBox := TListBox.Create(self); ListBox.Parent := ...ListBox.Top := ... ListBox.Left := ... ListBox.OnCLick := ListBoxClick;...[/code:1:e068fc40cf]...

Diogoalles · Answer

bha Massuda, valeu mesmo, fant�stico..iMoreira obrigado tb... demais !!!!Nunca usei TAG e li pelo help que ela � tipo um �ndice d objeto, isso mesmo? como eu poderia aplicar ela?Ultimo problema � que estou tentando criar os ListBox�s dentro de um ScrollBox que j� est� fixo no meu form, s� que, por exemplo, se a aplica��o tiver 3 ListBox pra criar ele s� deixa visivel o ultimo que for criado... eu executei um passo a passo e ele cria os 3 ListBox mas s� o ultimo aparece ... tentei dar um update, refresh..etc.. � deu ... alguma sugest�o?abra�oDiogo....

Massuda · Answer

[quote:348b4c71ad=�diogoalles�]Nunca usei TAG e li pelo help que ela � tipo um �ndice d objeto, isso mesmo? como eu poderia aplicar ela?[/quote:348b4c71ad]Tag � uma propriedade do tipo Integer que voc� pode usar para qualquer coisa que voc� desejar. No seu caso, voc� poderia fazer Tag = 1 para o primeiro listbox, Tag = 2 para o segundo listbox, etc e depois ler o valor de Tag quando quiser/precisar distinguir os listboxes.[quote:348b4c71ad=�diogoalles�]...estou tentando criar os ListBox�s dentro de um ScrollBox que j� est� fixo no meu form, s� que, por exemplo, se a aplica��o tiver 3 ListBox pra criar ele s� deixa visivel o ultimo que for criado... [/quote:348b4c71ad]Voc� est� criando os listboxes em posi��es diferentes do scrollbox? Veja se a propriedade AutoScroll do TScrollbox est� com o valor True....

Diogoalles · Answer

Blz, saquei o �TAG�e o outro n�o estava aparecendo porque eu tinha Align=alClient  :oops: Blz galera... ficou show isso aquiabra�o a todosDiogo...

Diogoalles · Answer

O que � melhor utilizar para qdo eu fechar o form que tem os ListBox�s dinamicos serem destruidos e limpar da memoria?
Destroy ? Free ?

e qual � o momento mais adequado para destruir? no fechamento do form?
e no caso dos eventos onde crio objetos, destruo logo ao fim da procedure?

abra�o

Diogo

Kapak · Answer

Se vc estiver criando os TListBox c/ owner, ent�o ele pr�prio os libera....

F�rum Criar ListBox�s em RunTime #273941