Überprüfen ist TScrollBox Bildlaufleisten sind tatsächlich sichtbar

Question

Ich habe eine einfache ansehnliche Form mit TScrollBox (Align := alClient) und einige Steuerelemente auf TScrollBox setzen. Wenn der Benutzer die Formulargröße ändert, zeigt TScrollBox die HorzScrollBar und VertScrollBar an und versteckt sie (abhängig von der tatsächlichen Client-Formulargröße).

Wie zur Laufzeit überprüfen - nicht HorzScrollBar oder VertScrollBar ist jetzt sichtbar?

TControlScrollBar.Visible ist keine Antwort, weil es nur eine regulierende Funktion hat.

Answer 1

Verwenden Sie TControlScrollBar.IsScrollBarVisible, um dies zu testen.

Rufen Sie IsScrollBarVisible auf, um festzustellen, ob die Bildlaufleiste sichtbar ist. IsScrollBarVisible gibt "true" zurück, wenn die Eigenschaft "Visible" den Wert "true" hat und das verknüpfte Fenstersteuerelement "scrolling" untergeordnete Steuerelemente enthält, die innerhalb von Randpixeln liegen.