I just want to find the item in focus in a list box.

[JLWest]

Code: Pascal  [Select][+][-]

1. if ListBox7.ItemIndex > -1 then  begin
2.     Issue := ListBox7.Items(ListBox7.ItemIndex);
3.    end;    

The above code dosen't work along with  several variation. I know I could go through the entire listbox but it has 6,000 plus items.

I can't find the answer because of improper search criteria. Any help out there?

[Jurassic Pork]

hello,
try to use getSelectedText:

Code: Pascal  [Select][+][-]

1.  if ListBox7.ItemIndex > -1 then  begin
2.     NotIssue := ListBox7.getSelectedText;
3.    end;

Friendly, J.P

[dsiders]

Code: Pascal  [Select][+][-]

1.   if ListBox7.ItemIndex > -1 then  begin
2.     Issue := ListBox7.Items(ListBox7.ItemIndex);
3.   end;
4.  

The above code dosen't work along with  several variation. I know I could go through the entire listbox but it has 6,000 plus items.

I can't find the answer because of improper search criteria. Any help out there?

Try using TListBox.GetSelectedText. That way you don't have to account for TopIndex in a ListBox that's scrollable.

JP beat me to it...

[lucamar]

ItemIndex should be the item which has the focus. try this code (or similar) to see if it works:

Code: Pascal  [Select][+][-]

1. function GetCurrentItem(AListBox: TListBox): String;
2. var
3.   idx: Integer;
4. begin
5.   { The important thing: use an intermediary to
6.     isolate calls to the list box methods }
7.   idx := AListBox,ItemIndex;
8.   if idx <> -1 then
9.     Result := AListBox.Items[idx];
10.   else
11.     Result := '';
12. end;

Alternatively, if you have MultiSelect set to False, you can use AListBox.GetSelectedText, which does esentially the same but internally.

If nothing works, please, be more specific: what does it do which is wrong? which steps to reproduce the fail? which OS and which version of Lazarus/FPC? (this last is in your signature, I guess)

ETA: Damn, you guys are quick!

[JLWest]

Code: Pascal  [Select][+][-]

1.     function GetCurrentItem(AListBox: TListBox): String;
2.     var
3.       idx: Integer;
4.     begin
5.       { The important thing: use an intermediary to
6.         isolate calls to the list box methods }
7.       idx := AListBox,ItemIndex;
8.       if idx <> -1 then
9.         Result := AListBox.Items[idx];
10.       else
11.         Result := '';
12.     end;

@Lucmar
I think it needs a comma changed to a period.
      idx := AListBox.ItemIndex;
Will it exit after the line  Result := AListBox.Items[idx]; ? I assume.

[lucamar]

Oops! Sorry. Corrected version:

Code: Pascal  [Select][+][-]

1. function GetCurrentItem(AListBox: TListBox): String;
2. var
3.   idx: Integer;
4. begin
5.   { The important thing: use an intermediary to
6.     isolate calls to the list box methods }
7.   idx := AListBox.ItemIndex;
8.   if idx <> -1 then
9.     Result := AListBox.Items[idx]
10.   else
11.     Result := '';
12. end;

I'd just gotten out of bed 

[JLWest]

Code: Pascal  [Select][+][-]

1.   if idx <> -1 then
2.     Result := AListBox.Items[idx]
3.   else
4.     Result := '';
5. end;

I see the answer to my second question. I either get a listbox Item that is in focus or an empty string.

Simple but very elegant. Copied this out to my listbox commands and routines doc.

Thanks 

[jamie]

regardless, using the ItemIndex as the value for the INDEX for the items, should work..

The only way it may not work is if a selection changed and the control wasn't allowed to update.

But even that is a stretch.

I haven't looked at the code recently for the Listbox but if the itemIndex isn't getting updated when a
direct change is being made and thus waiting for a message to arrive from the widget then this could be
an issue.

 If you are not allowing the system to process messages after a change is made to the list box, this may
happen...