Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Scrollbar in Treeview
Siluro - Do 17.03.05 15:13
Titel: Scrollbar in Treeview
Hi,
ich hab da mal ne Frage, gibt es die möglichkeit Informationen von der Scrollbar in einem Treeview zu erhalten?
Ich würde gerne Abfragen ob die Scrollbar aktiv bzw. vorhanden ist oder nicht.
Danke im Vorraus.
MfG
Björn
csa - Fr 18.03.05 18:32
Hallo,
die entsprechenden Funktionen finden sich in der Hilfe zum Windows-SDK: EnableScrollBar, GetScrollPos, GetScrollInfo,...ShowScrollBar.
Wenn man die Quelltexte der VCL hat, kann man Beispiele in der Unit StdCtrls finden (TScrollBar), für GetScrollRange ein Beispiel in der Unit Grids.
Funktion zur Beantwortung der Frage, ob ein horizontaler Scrollbar existiert:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| ...
function HScrollBarVisible(Handle: HWnd): Boolean;
var
Min, Max: Integer;
begin
Result := False;
GetScrollRange(Handle, SB_HORZ, Min, Max);
Result := not (Min = Max);
end; |
dto. mit SB_VERT für den vertikalen ScrollBar.
Aufruf:
Delphi-Quelltext
1:
| if HScrollBarVisible(TreeView1.Handle) then ... |
Gruß, Christoph
Siluro - Mo 21.03.05 11:09
Danke
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!