TListBox (Firemonkey) em tempo de execução

02/11/2014

0

Olá Pessoal!

Estou tentando criar items customizados para um TListBox em tempo de execução.

Estou fazendo conforme abaixo:
var
  item : TListBoxItem;
  texto : TText;
begin
  listBox1.HitTest := true;
  listBox1.Items.Add('');
  item := listBox1.ListItems[listBox1.Items.Count-1];
  item.HitTest := true;
  texto := TText.create(nil);
  texto.Text := 'Teste 01';
  texto.HorzTextAlign := TTextAlign.taLeading;
  texto.VertTextAlign := TTextAlign.taLeading;
  texto.color := TAlphaColors.Black;;
  texto.parent := item;
  texto.Align := TAlignLayout.alClient;

  listBox1.Items.Add('');
  item := listBox1.ListItems[listBox1.Items.Count-1];
  item.HitTest := true;
  texto := TText.create(nil);
  texto.Text := 'Teste 02';
  texto.HorzTextAlign := TTextAlign.taLeading;
  texto.VertTextAlign := TTextAlign.taLeading;
  texto.color := TAlphaColors.Black;;
  texto.parent := item;
  texto.Align := TAlignLayout.alClient;

Os item são criados e mostrados no listBox1 porém não consigo selecioná-lo...

Alguém teria um exemplo mais completo de como fazer isso? Desejo fazer um listBox cutomizado...
Carlos Phelippe

Carlos Phelippe

Responder

Posts

05/04/2018

Jerrivaldo

Faz assim:

procedure TForm7.FormCreate(Sender: TObject);
var
ListBoxItem: TListBoxItem;
begin
with TListBoxItem.Create(ListBox1) do
begin
Size.Width := 388;
Size.Height := 50;
Size.PlatformDefault := False;
Text := 'Testando';
Visible := True;
Parent := ListBox1;
end;
end;
Responder

19/09/2018

Messias Galvão

Só Complementando:

Var
ListBoxItem: TListBoxItem;
begin

ListBoxItem:= TListBoxItem.Create(ListBox1);
with ListBoxItem do
begin

Size.Width := 388;
Size.Height := 50;
Size.PlatformDefault := False;
Text := 'Banco do Brasil';
ItemData.Detail:= '0800 729 0722'; //Acrescenta um segundo item
ItemData.Accessory:= TListBoxItemData.TAccessory(3); //Efeito check
StyleLookup := 'listboxitembottomdetail'; // Listbox detalhado
Visible := True;
Parent := ListBox1;

end;
end;
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar