Gesucht: TListView.OnScrollBarShow -Event

jahuer1 · Beiträge: 39

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 · Beiträge: 849

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.

markieren

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;

markieren

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;

_________________
Ciao, Sprint.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme