Lista de contatos? Como fazer isso?

[webrodex 0]

Gostaria de saber como eu faço uma lista de contatos tipo o do msn , yhaoo etc.. com imagemlist cadastrado as imagem e gostaria de colocar a imagem dentro de algum desses componente RichEdit, TreeView ou ListView ! queria colocar uma imagemlist dentro de algum desse componentes. Precisaria fazer via comando essa e minha duvida como fazer isso estarei aguardando respostas obrigado !!

[marcio.theis 3]

Tente o seguinte, coloque um ImageList com 3 imagens dentro, adicione um TreeView e depois faça este código em um botão:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var   sText : string;beginif(TreeView1.Selected = nil) then	begin	if(TreeView1.Items.Count = 0) then		begin		with TreeView1.Items.AddFirst(nil,'Raíz') do			begin			Selected:=True;			ImageIndex:=0;			SelectedIndex:=1;			end;		end	else		 Exit;	endelse	begin	InputQuery('Novo Item','Nome',sText);	with TreeView1.Items.AddChildFirst(TreeView1.Selected,sText) do		begin		ImageIndex:=1;		SelectedIndex:=2;		MakeVisible;		end;	end;end;

Neste exemplo ele faz a criação e atribuição dinâmica dos itens em um TreeView, agora você pode mudar de acordo com a sua necessidade....