|
#1
|
|||
|
|||
ListBox
Подскажите как определить выделена ли строка в ListBoxe?
|
#2
|
||||
|
||||
Код:
//в myIndex - индекс строки для которой ты хочешь узнать выделена она или нет if ListBox.Selected[myIndex] then ShowMessage('Строка '+IntToStr(myIndex)+' выделена') else ShowMessage('Строка '+IntToStr(myIndex)+' не выделена'); |
#3
|
||||
|
||||
А если хочешь узнать, какая именно выделена, то делай так:
... Код:
var iIndex, iCount: Integer; begin iCount := ListBox.Items.Count - 1; for iIndex := 0 to iCount do begin if ListBox.Selected[iIndex] then ShowMessage('Строка '+IntToStr(iIndex)+' выделена') end end; THE CRACKER IS OUT THERE |
#4
|
|||
|
|||
Вот такой код:
var l: Word; -- if text <> '' then begin with ListBox1 do begin l:= ListBox1.Perform(LB_SELECTSTRING, ItemIndex, LongInt(text)); end; if ListBox1.Selected[l] then begin Memo1.Lines.Add(ListBox1.Items[ListBox1.ItemIndex]); end else MessageDlg('Ничего не найдено!', mtInformation, [mbOk], 0) end else Exit; end; выдаёт ошибку: List index out of bounds |
#5
|
|||
|
|||
Я всё исправил! Прошу не беспокоится.
|