Sprawdź, czy paski przewijania TScrollBox są rzeczywiście widoczne.

Question

Mam prostą, sporego formatu z TScrollBox (Align := alClient) i niektórych kontrolek umieszczonych na TScrollBox. Jeśli użytkownik zmieni rozmiar formularza, TScrollBox pokaże i ukryje HorzScrollBar i VertScrollBar (w zależności od rzeczywistego rozmiaru formularza klienta).

Jak sprawdzić w czasie wykonywania - czy HorzScrollBar lub VertScrollBar są teraz widoczne?

TControlScrollBar.Visible nie jest odpowiedzią, ponieważ ma tylko funkcję regulacyjną.

Answer 1

Użyj testu TControlScrollBar.IsScrollBarVisible, aby to przetestować.

Zadzwoń do IsScrollBarVisible, aby określić, czy pasek przewijania jest widoczny. IsScrollBarVisible zwraca wartość true, jeśli właściwość Visible ma wartość true, a powiązane okno przewijania z kontrolką zawiera elementy sterujące podrzędne, które znajdują się w pikselach Margines od krawędzi.