[TListBox] Aktuelle Scrollzeile

[bitsetter]

Ich hoffe mal, dass dieser Code beim Hochscrollen funktioniert.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
  var
  Rect: TRect;
  WinInfo: TWindowInfo;
  iHeight: integer;
begin
  Caption:= '0';
  if listbox1.Count> 0 then
  begin
    ZeroMemory(@WinInfo, sizeOf(WinInfo));
    WinInfo.cbSize:= SizeOf(WinInfo);
    GetWindowInfo(listbox1.Handle, WinInfo);
    //iHeight= sichtbare Bereich in der Listbox
    iHeight:= WinInfo.rcClient.Bottom- WinInfo.rcClient.Top;
    Rect:= Listbox1.ItemRect(Listbox1.Count) ;
    if Rect.Bottom> iHeight then
    begin
      caption:= inttostr((Rect.Bottom- iHeight)div listbox1.ItemHeight);//* -1);
      //Trackbar1.Position:= ((Rect.Bottom- iHeight) div listbox1.ItemHeight);
    end;
  end;
end;