Listbox herausfinden ob Element sichtbar ist

[Shark99]

Wie kann ich in einer ListBox herausfinden ob Element X sich im sichtbaren Bereich befindet?

[Popov]

So könnte es gehen. Vielleicht noch paar Anpassungen:

Delphi-Quellcode:

var
  R1, R2: TRect;
begin
  with ListBox1 do
  begin
    R1 := ItemRect(Indexnummer); //Indexnummer
    R2 := ClientRect;

    if (R1.Bottom <= R2.Top) or ((R1.Top + ItemHeight) > R2.Bottom) then
      ShowMessage('Außerhalb')
    else
      ShowMessage('Innerhalb');;
  end;
end;