|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Проблемы с ListView
Возникли проблемы с ListView? Помогите решить...Вот, собственно, и они:
1)При изменении свойства ItemIndex нужная строчка остается невыделенной даже при MultiSelect := false (а надо при true): Код:
PList.ItemIndex := PLIndex; //Не работает! PLIndex'у присвоено допустимое значение |
#2
|
||||
|
||||
2) Удалить всё, кроме выделенной:
Код:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=listview1.Items.Count-1 downto 0 do begin if listview1.Items.Item[i].Selected then else listview1.Items.Delete(i); end; end; Обернуть выделение: Код:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:= 0 to listview1.Items.Count-1 do begin if listview1.Items.Item[i].Selected then listview1.Items.Item[i].Selected:=false else listview1.Items.Item[i].Selected:=true; end; end; Кому я должен - всем прощаю!!!! Последний раз редактировалось <<D>>, 21.02.2008 в 23:52. |
#3
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i:=0 to ListView1.Items.Count-1 do ListView1.Items.Item[i].Selected:=not ListView1.Items.Item[i].Selected; end; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#4
|
||||
|
||||
Спасибо! А что насчет 1? Это весьма важно..
|
#5
|
||||
|
||||
ListView1.ItemIndex:=2;
ListView1.SetFocus; Кому я должен - всем прощаю!!!! |
#6
|
||||
|
||||
Или в ListView поставь HideSelection = False;
Тада не нада фокус наводить! Кому я должен - всем прощаю!!!! |
#7
|
||||
|
||||
Спасибо!!!Все заработало как надо!! Только я не понимаю как сделать в ListView Drag-And-Drop..Все перепробовал-не получается...
|
#8
|
||||
|
||||
Кому я должен - всем прощаю!!!! |
#9
|
||||
|
||||
А если надо много перетащить?
|
#10
|
||||
|
||||
Цитата:
Кому я должен - всем прощаю!!!! |
#11
|
||||
|
||||
Цитата:
Вобщем-то алгоритм понятен но думать времени нет |