Scrollbar / Scrollbars v. TStringGrid / StringGrid sichtbar?

[Delphi-Laie]

Hallo Delphifreunde!

Über einen Tag suchte ich im Internet, wie man obiges feststellt. Ich fand auf keiner (!) deutschsprachigen Seite eine befriedigende Lösung dafür. Die Bastellösungen dazu erwiesen sich letztlich alle als untauglich. Das Problem ist wohl, daß das Zu-/Abschalten der Scrollbars leider nicht als Ereignisse oder wenigstens zur Laufzeit (und damit nicht im Objektinspektor voreinstellbare) abrufbare Eigenschaften verfügbar ist.

Kurzum, die Lösung, die das wirklich zu bieten bzw. umzusetzen scheint (meine ersten diesbezüglichen Erfahrungen sind positiv, deshalb hier die Veröffentlichung), findet sich hier:

Delphi-Quellcode:

if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then 
  ShowMessage('Vertical scrollbar is visible!'); 
if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then 
  ShowMessage('Horizontal scrollbar is visible!');