F�rum Lista no Treview #383648

14/08/2010

Preciso criar uma lista no treview de mesas tenho um Edit aonde o usuario digita a quantidade de mesas quer que apare�a em um Treview e nao estou sabendo fazer isso

se alguem souber me da uma ajuda com o treview

� uma edit que vou digitar o total de mesas e um Treview que vai carregar a quantidade de mesas digitado no edit

Laelson Fagundes

Curtir t�pico

+ 0

Responder

Posts

15/08/2010

Carlos Mazzi

S� pra eu entender... seria assim: 1) Usuario digita num EdiText, a quantidade de mesas. 2) A list monta Mesas)___4 ______________Mesa1 ______________Mesa2 ______________Mesa3 ______________Mesa4 � isso?

Responder

Gostei + 0

15/08/2010

Laelson Fagundes

Isso mesmo que querp fazer so que no listview vai aparecer imagens no lugar de texto...

Responder

Gostei + 0

18/08/2010

Laelson Fagundes

Alguem sabe como fazer essa listagem....

Responder

Gostei + 0

18/08/2010

Eriley Barbosa

No link abaixo tem um exemplo do que voc� procura, adapte-o a sua necessidade: http://www.planetadelphi.com.br/download/2985/arquivo/tutorial-treeview-com-fontes-comentadas-e-exempos---parte-1 Atenciosamente Eriley

Responder

Gostei + 0

18/08/2010

Laelson Fagundes

Desculpa na verdade seria no ListView por exemplo tenho um edit e um ListView quando digito o numero no edit por exemplo digito 20 ele tem q listar de 1 a 20 no ListView... seria um loop para construir esses dados no ListView no ListBox eu estava testando assim var i, x : integer; begin ListBox1.Clear ; for i := 1 to 20 do begin Begin ListBox1.Items.Add( inttostr(i) ); end; end; end; ele funciona mas no ListView eu nao sei como vai ficar associando um edit para ele poder gerar a quantidade q eu digito no edit

Responder

Gostei + 0

18/08/2010

Eriley Barbosa

http://www.linhadecodigo.com.br/Artigo.aspx?id=581 Atenciosamente Eriley

Responder

Gostei + 0

18/08/2010

Laelson Fagundes

ja axei a solu��o

var
i : integer;
aLista: TListItem;
begin
   // ListBox1.Clear ;
    ListView1.Clear;
    for i := 1 to StrToInt(edit1.Text) do
     begin
       Begin
    //   ListBox1.Items.Add( inttostr(i) );
        aLista := ListView1.Items.Add;
        aLista.Caption := (inttostr(i)); //'MESA '+
      // aLista.SubItems.Add( inttostr(i) );
         end;
    end;

end;

Responder

Gostei + 0