Hallo,
Zitat von
APP:
Hallo Jens,
an anderer Stelle habe ich einen
Code zum Verstecken der Scrollbar gepostet,
mit
Delphi-Quellcode:
style := GetWindowLong(
handle, GWL_STYLE );
if (style
and WS_VSCROLL) <> 0
then
solltest Du die Abfrage machen können.
Ich wollte nicht wissen, wie man den Scrollbar unterdrückt, sondern ob er sichtbar ist?
Der folgende Code funktioniert.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
ScrollBarInfo : TSCROLLBARINFO;
Ok : Boolean;
begin
FillChar(ScrollBarInfo,SizeOf(TScrollBarInfo),0);
ScrollBarInfo.cbSize:=SizeOf(TSCROLLBARINFO);
Ok:=GetScrollBarInfo(ListBox1.Handle,OBJID_VSCROLL,ScrollBarInfo);
If Not Ok then
Label1.Caption:=IntToStr(GetLastError);
If ScrollBarInfo.rgstate[0] AND STATE_SYSTEM_INVISIBLE=STATE_SYSTEM_INVISIBLE then
Label2.Caption:='Unsichtbar'
else
Label2.Caption:='Sichtbar';
end;