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.
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.