Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Gesucht: TListView.OnScrollBarShow -Event
jahuer1 - Do 23.12.04 16:09
Titel: Gesucht: TListView.OnScrollBarShow -Event
Ich brauche einen Event, der beim Erscheinen und Verschwinden der Scrollbar in einer TListView feuert.
Wie geht das?
(Wie kriegt man va. das Handle dieser Scrollbar, etc.)
Sprint - Do 23.12.04 16:40
Ich weiß nicht ob es eine Windows Nachricht gibt, die dich darüber informiert. Aber du kannst mit GetWindowLong den Style abfragen und so feststellen ob eine Scrollbar sichtbar ist oder halt nicht.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| function IsScrollBarVisible(AHandle: HWND): Boolean;
var
Style: Longint;
begin
Style := GetWindowLong(AHandle, GWL_STYLE);
Result := (Style and WS_VSCROLL <> 0) or (Style and WS_HSCROLL <> 0);
end; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Button1Click(Sender: TObject);
begin
if IsScrollBarVisible(ListView1.Handle) then
ShowMessage('Scrollbar ist sichtbar.')
else
ShowMessage('Keine Scrollbar vorhanden.');
end; |
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!