Erkennen ob Scrollbar in Listview sichtbar ist

[Jens Schumann]

Hallo,
ich habe in den Tifen meines Archives noch eine Lösung gefunden

Delphi-Quellcode:

function HasScrollBarEx(hwnd: HWND; ScrollBarOrientation : Integer): Boolean;
var 
  ScrollBarInfo : TSCROLLBARINFO;
begin
  FillChar(ScrollBarInfo,SizeOf(TScrollBarInfo),0); 
  ScrollBarInfo.cbSize:=SizeOf(TSCROLLBARINFO);
  If GetScrollBarInfo(hwnd,ScrollBarOrientation,ScrollBarInfo) then
    Result:=Not ScrollBarInfo.rgstate[0] AND STATE_SYSTEM_INVISIBLE=STATE_SYSTEM_INVISIBLE
      else
        Result:=False;
end;

Wird aufgerufen mit HasScrollBarEx(Hanlde,OBJID_HSCROLL) oder HasScrollBarEx(Hanlde,OBJID_VSCROLL)