TListbox -> Scrollbar visible?

**Jens Schumann**

Hallo,
mit folgendem Code möchte ich den vertikalen Scrollbar einer TListbox
abfragen. GetLastError liefert jedoch 1447. Was bedeutet:
The window does not have scroll bars.

Die TListbox hat aber einen vertikalen Scrollbar. Ich kann ihn sehen.

markieren

Delphi-Quellcode:

			procedure TForm1.ListBox1DblClick(Sender: TObject);

var

  ScrollBarInfo : TSCROLLBARINFO;

begin

  FillChar(ScrollBarInfo,SizeOf(TScrollBarInfo),0);

  ScrollBarInfo.cbSize:=SizeOf(TSCROLLBARINFO);

  GetScrollBarInfo(ListBox1.Handle,OBJID_VSCROLL,ScrollBarInfo);

end;

Letztendlich möchte ich feststellen ob der Scrollbar sichtbar ist oder nicht.

TListbox -> Scrollbar visible?

TListbox -> Scrollbar visible?

Forumregeln