if tsi.nPage<cardinal(ListBox1.Items.Count) then showmessage('il y a un Scroll') else showmessage('Il n''y pas de Scroll');
procedure TForm1.Button1Click(Sender: TObject); var tSI:tagScrollInfo; begin FillChar(tSI, SizeOf(tSI), 0); with tSI do begin cbsize := SizeOf(tSI); fmask := SIF_ALL; end; GetScrollInfo(ListBox1.handle,SB_VERT,tSI); if tsi.nPage<ListBox1.Items.Count then showmessage('il y a un Scroll') else showmessage('Il n''y pas de Scroll'); end;