Клик по строке listbox

[Кинельски]

Здравствуйте форумчане, подскажите пожалуйста как осуществить клик по строке в листбокс? Например я загрузил в листбокс файл в 10 строк ,и кликаю мышкой по любой строчке, после чего эта строка добавляется в путь к файлу, я не знаю какую команду писать и что писать в пути что бы прибавить именно ту строчку по которой сделали клик. Помогите пожалуйста

[Mad_Cat]

var k:integer;path:string;
begin
.....
k:=lst.itemindex;
path:=path+lst.items[k];// где lst твой listbox
......
end;

[Lokos]

Сообщение от Кинельски

Здравствуйте форумчане, подскажите пожалуйста как осуществить клик по строке в листбокс? Например я загрузил в листбокс файл в 10 строк ,и кликаю мышкой по любой строчке, после чего эта строка добавляется в путь к файлу, я не знаю какую команду писать и что писать в пути что бы прибавить именно ту строчку по которой сделали клик. Помогите пожалуйста

в обработчике ListBox'a OnMouseDown пишешь

Put:=Put+(Listbox1.Items.Strings[ListBox1.ItemIndex]);

с учетом того что Put у тебя текстовая переменная

[Stilet]

Ага только неплохо бы еще проверочку написать

with ListBox1 do  if (itemindex<>-1) then Put:=Put+Items[ItemIndex];

[Lokos]

Сообщение от Stilet

Ага только неплохо бы еще проверочку написать

with ListBox1 do  if (itemindex<>-1) then Put:=Put+Items[ItemIndex];

Так вот из за чего бывает ошибка выхода пределы. Потому что иногда бывает вылетает я все гадал из за чего