Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.22;
Скачать: [xml.tar.bz2];

Вниз

ListBox1   Найти похожие ветки 

 
eruc   (2002-07-09 22:10) [0]

Есть ListBox1
у него MultuSelect:=true;
Выделяем в нем несколько строк

Как узнать с какой и по какую строку мы выделили ?

:)


 
NailMan   (2002-07-10 02:05) [1]

Var i,Min,Max:integer;

begin

Min:=-1;
Max:=-1;
For i:=0 to ListBox1.Items.Count-1 do
if ListBox1.Selected[i] then
begin
if min<0 then min:=i;
Max:=i;
end;
end;

В итоге:
min - начальный индекс строки
Max - Конечный индекс строки

Но если между Min и Max есть невыделенные строки, то они посчитаются за таковые, поэтому выделенные индексы надо в массивчик заносить, и потом с ним и работать.



 
TTCustomDelphiMaster   (2002-07-10 08:36) [2]

Посмотри как работает
function TCustomListBox.GetSelected(Index: Integer): Boolean;
и почитай про LB_GETSELITEMS


 
Andrey007   (2002-07-10 09:22) [3]

for i:=0 to ListBox.Items.Count-1 do if ListBox.Selected[i] then
begin
// наткнулись на выделенную строку
end
else
begin
// невыделенная строка
end



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.005 c
14-70909
Manist
2002-06-25 17:28
2002.07.22
Как в GTA 3 летать на самолетике Dodo?


14-70918
Igor_
2002-06-26 10:54
2002.07.22
Документация по FreeReport


1-70784
Fiend
2002-07-10 09:40
2002.07.22
Service ADO


14-70857
MVova
2002-06-21 16:50
2002.07.22
Стиль написания.


1-70805
Raiv
2002-07-10 14:16
2002.07.22
Чтение двоичного файла.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский