procedure TForm_player.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var N: Integer; begin N := ListBox1.ItemAtPos(Point(X, Y), True); if N >= 0 then ListBox1.ItemIndex := N; end;
Правда, если не один из треков не был выделен до этого левой кнопкой мыши, то при нажатии правой строка не выделится, но меню откроется именно для той строки на которой была нажата кнопка. Думаю понятно.
спс, все работает)), насчет выделения, у меня так сказать по умолчанию выделяется первый трек, и сделать так чтоб не один трек не был выделен нельзя ))
когда на форме дважды кликнешь по листбоксу, то вызывается процедура листбокс-клик. а как вызвать процедуру листбокс-даблклик?????
Добавлено (23.09.2013, 23:14) --------------------------------------------- работает
Добавлено (23.09.2013, 23:16) --------------------------------------------- добавил код на процедуру листбокс-клик, воспроизводится по одинарному нажатию. а если я добавлю его на дабл-клик - не работает
Hanigan, Я реализовал это так: Кидаем на форму listbox и PopupMenu И FormCreate пишем:
Code procedure TForm1.FormCreate(Sender: TObject); begin listbox1.PopupMenu:=popupmenu1; end;
Создаём в меню пункт "Удалить" и в обработчике события N1Click пишем: Code procedure TForm1.N1Click(Sender: TObject); begin //удаляем активный элемент listbox1.Items.Delete(listbox1.ItemIndex); end;
Здесь показан пример, когда PopupMenu вызывается если выбрана строка Listbox-a. Что бы PopupMenu появилось в любом месте listbox-a, то поставьте свойстве listbox 'popup'
Сделал таким же макаром давно правда но не суть только не стал прописывать лишний код с приравниванием "поп меню" но я еще добавил в своем плеере в первый же день когда собрал уже готовую модель добавил туда плей лист формата blpl - созданый самим, может кому пригодится подобная фишка, удалял песню и сразу же делал сохранение в фаил. Адресс плей листа брался из ini файла в переменную "plfile" а потом уже сохранял его обратно но с изменениями....... вот такой листинг кода
Код
procedure TForm1.N1Click(Sender: TObject); begin //удаляем активный элемент listbox1.Items.Delete(listbox1.ItemIndex); listbox1.items.savetofile(plfile); end;
загружал уже по другому т.к. открыл для себя волшебные свойства ID3Tags но тех кто пока этим не заморочился загружал так listbox1.items.loadfromfile(plfile); Может кому пригодится я не знаю если нет то извините что потралтил ваше время
Сообщение отредактировал Black-Lotus - Вторник, 22.10.2013, 20:58
