[Johny]

Подскажите как определить выделена ли строка в ListBoxe?

[Aristarh Dark]

Код:

//в myIndex - индекс строки для которой ты хочешь узнать выделена она или нет
if ListBox.Selected[myIndex] then
  ShowMessage('Строка '+IntToStr(myIndex)+' выделена')
else
  ShowMessage('Строка '+IntToStr(myIndex)+' не выделена');

[4kusNick]

А если хочешь узнать, какая именно выделена, то делай так:
...

Код:

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;

[Johny]

Вот такой код:
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

[Johny]

Я всё исправил! Прошу не беспокоится.