TListBox

[hatsub]

Есть ли возможность в TListBox к конкретной строке создать событие двойной клик мышью?
При этом мне нужно запомнить id строки в TListBox и нужно написать код события. Подскажите пожалуйста как это сделать?

извините, что не по теме, просто писал reeder с rss ленты и понадобилась работа с сетью, а вот из раздела форума не вышел

[ArtGrek]

код для каждои строки будет отличныи друг от друга по структуре или просто номер строки должен отличаца?

[hatsub]

Тут будет намного более целесообразно работать с xml, но там тоже проблемы:

procedure TForm1.Button3Click(Sender: TObject);
var b:string;
begin
XMLDocument1.LoadFromFile('http://mzilla.ru/news/rss');
XMLDocument1.Active := true;
b := XMLDocument1.DocumentElement.ChildNodes['lastBuildDate'].Text;
// "lastBuildDate" - присутствует в исходнике http://mzilla.ru/news/rss
XMLDocument1.Active := false;
//проверка
showmessage(b);
end;

Показывает пустой showmessage

[dmitriegorovih]

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
if listbox1.ItemIndex=0 then begin
//<<--
//Если первая строчка выплняем код
showmessage(listbox1.Items.Strings[listbox1.Itemindex]);
//-----КОД-----
//-->>
end;
if listbox1.Itemindex=1 then begin
//<<--
//Если вторая строчка выплняем код
showmessage(listbox1.Items.Strings[listbox1.Itemindex]+'А для этой строчки другой код!');
//-----КОД-----
//-->>
end;
// и т.д.
end;

[asmodey1]

Я бы сделал так:

case ListBox1.ItemIndex of
0: begin ... end;
1: begin ... end;
...
end;

или

case ListBox1.ItemIndex of
0: MyProc0;
1: MyProc1;
...
end;