Dica : Adicionar itens no componente TListBox

tresloukadu — Fri, 05 Dec 2008 20:25:48 +0000

O componente TListBox nada mais é que um componente para exibir um conjunto de informações em uma lista com barra de rolagem. Este componente permite fazer a seleção de somente um único ítem ou de vários itens ao mesmo tempo. O TListBox é um dos componentes descendentes da classe TControl que possui mais de 70 componentes descendentes, tais como: TBitBtn, TButton, TCheckBox, TColorDialog, TComboBox, TForm, TFontDialog, TGroupBox, THeader, TImage, TLabel, TListBox, TMainMenu e TMediaPlayer, entre outros.

Podemos fazer coisas muito legais com o TListBox inclusive colocar imagens. Nessa dica irei mostrar como adicionar itens ao ListBox através do código.

Segue o código de exemplo:

unit UniTeste;
{

Sobre: Código de exemplo para mostrar como adicionar valores no listbox

através do código.
Autor: Dicas Delphi

Data:  05/12/2008

}
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;
type

TForm2 = class(TForm)

ListBox1: TListBox;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);

var

//Declarando uma variavel string

itemNoList : string;

begin
//Adicionando a data e horario atual a variavel.

//

//A função DateTimeToStr converte o componente

//Now para string

//

itemNoList := DateTimeToStr(Now);
//Aqui estamos adicionando a data e horario

//armazenado na variável itemNoList em nosso

//listbox

ListBox1.Items.Add( itemNoList );
end;
end.

A linha que nos interessa neste código é a seguinte:

ListBox1.Items.Add( itemNoList );

Esta instrução diz para adicionar um item (o valor da variável itemNoList ) no nosso componente ListBox1. E no exemplo que foi preparado a cada clique do mouse um novo item é adicionado ao componente TListBox programaticamente.

http://www.dicasdelphi.com.br/wp-content/uploads/2008/12/testelistbox.rar

URL reduzida deste artigo: url20.ca/p1978

Dicas Delphi » TListBox

Dica : Adicionar itens no componente TListBox