[DELPHi7] Mexendo com ListBox

[bidoow 0]

Mexendo com ListBox

 

Olá galera, fiz esse tutorial para os iniciantes terem uma noção bem básica de ListBox!

 

Adicione na Form :

 

2 edits, 4 buttons, 1 label, 1 listbox (todos na aba Standard)

Agora na aba Dialogs adicione um OpenDialog, e um SaveDialog

Organize assim :

 

 

Na caption do Button1 coloque Adicionar Item, clique duas vezes, apague tudo e coloque:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Items.Add ( Edit1.Text );

end;

 

Ou seja, você ira digitar algo no Edit1 e clicar em Adicionar Item que adicionará no ListBox.

 

Agora o Button2, coloque na caption Deletar Item, clique duas vezes, apague tudo e coloque o codigo:

 

procedure TForm1.Button2Click(Sender: TObject);

begin

ListBox1.DeleteSelected;

end;

 

O item selecionado, você irá clicar em deletar que deletará.

 

Agora no Button3 coloque Carregar Arquivo, clique duas vezes, apague tudo e coloque:

 

procedure TForm1.Button3Click(Sender: TObject);

begin

if Opendialog1.Execute then

begin

ListBox1.Items.LoadFromFile(opendialog1.FileName);

ListBox1.SetFocus;

end;

 

Ele vai carregar um arquivo .txt no listbox.

 

No Button4 coloque Salvar, apague tudo e coloque:

 

procedure TForm1.Button4Click(Sender: TObject);

begin

if Savedialog1.Execute then

begin

ListBox1.Items.SavetoFile(Savedialog1.FileName);

ListBox1.SetFocus;

end;

 

Ele irá salvar o que está escrito no ListBox, nao esqueça de botar a extensão (.txt).

 

Agora na Label1 coloque Buscar, e no Edit2 clique duas vezes, apague tudo e coloque isso:

 

procedure TForm1.Edit2Change(Sender: TObject);

begin

Listbox1.Perform(LB_SELECTSTRING,0,LongInt(PChar(Edit2.Text)));

end;

 

Ou seja, oque você digitar ele irá buscar.

 

Bom, é só isso mesmo, tava sem nada para fazer aqui e fiz isso =p

 

creditos - texto : EU

codigos : um forúm ai.

 

valeu galera

[''MM'' 0]

Fico bom, é bom para ter uma noção sobre delphi.

 

Vlw

[matheusguerra 3]

LOL

 

cara fico bom, mais eu tenhow uma duvida:

existe um meio de eu fazer uma lista, com a listbox, e fazer ele se auto atualizar com forme os dados da internet?

[bidoow 0]

acho que sim matheus, mais fala com o DragonBoss, ele que sabe desses bagulhos de internet.

falooo

[IbackPwneÐ 0]

òtimo tópico, bom pra iniciantes que nao sdabem mexer com esse componente,

[DragonBoss 8]

mto bom topico mesmo, bidoow como sempre fazendo otimos tutoriais.

 

acho que sim matheus, mais fala com o DragonBoss, ele que sabe desses bagulhos de internet.

 

Me emociono quando falam meu nome no forum sem ser pra chingar *------*

KPSkOskpoakspkos

 

Vo da uma olhada ake, e inserir um sistema de lista de musikas num player de audio pra ve se fika legalzin xD....flw

 

vlw pelo topico, abraços.

 

OBS: nao tem um espaço a mais aki nao ?

 

procedure TForm1.Edit2Change(Sender: TObject);

begin

Listbox1.Perform(LB_SELECTSTRING,0,LongInt(PChar(E dit2.Text)));

end;

 

OBS²: O cara merece thanks pessoal xD

 

Fuiz =*

[bidoow 0]

aquele espaço eu não consigu tira, ele fica assim :@

 

que raiva.

 

aquele espaço eu não consigu tira, ele fica assim :@

 

que raiva.

[Jore 0]

Muito bom Obrigado!