С помощью чего можно реализовать?

[prod87]

С помощью какого обьекта можно реализовать что то похожее на список контактов квипа?

[raxp]

listbox и свойство otherdraw вам в помощь
...перерисовывайте в onDrawItem

listview тоже неплох

[prod87]

Как в него картинку довавить перед надписью?)

[raxp]

в событии DrawItem делаем так:

with (Control as TlistBox).canvas do begin
  brush.Color:= clblack;
  Font.Color:= cllime;//clgray;

  FillRect(Rect);
  draw(Rect.Left + 3, Rect.Top-1, bmp_open);
  TextOut(Rect.Left + 4 + bmp_open.width, Rect.Top+2, 'ваша надпись');

смысл ясен?

[prod87]

Не совсем=( Я в дельфи програмирую всего 2 недели. Плохо разбираюсь=(

[raxp]

ваш список контактов грузим как обычно в listbox. Ставим ему свойство lbotherdrawfixed. Далее берете Imagelist и загоняете в него нужные вам картинки статуса пользователей или создаете ресурс (как, есть на форуме) c картинками bmp например и по статусу для определенного пользователя подставляете ту картинку, что нужно... В процедуре DrawItem компонента Listbox пишем код:

with (Control as TlistBox).canvas do begin
  brush.Color:= clblack;
  Font.Color:= cllime;//clgray;

  FillRect(Rect);
  draw(Rect.Left + 3, Rect.Top-1, bmp_open);
  TextOut(Rect.Left + 4 + bmp_open.width, Rect.Top+2, listbox.items[listbox.itemindex]); // тут ваш обработчик от статуса, уже сами
end;

tlistview для этих целей больше подходит, он более похож на требуемое, но раз в первый раз... потренируйтесь сначала на listbox-е