Ich habe diese Lösung versucht:
Delphi-Quellcode:
procedure TTestTreeview.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
if (Params.Style and WS_VSCROLL) <> 0 then
Params.Style := Params.Style and not WS_VSCROLL;
if (Params.Style and WS_HSCROLL) <> 0 then
Params.Style := Params.Style and not WS_HSCROLL;
end;
jedoch wird der Scrollbalken angezeigt wenn das Treeview anfang leer war und erst später mit Einträgen gefüllt wird.
Ein zweiter Versuch war
ShowScrollBar(ActiveTree.Handle, SB_HORZ, False);
in Form.OnPaint. Leider auch kein Erfolg. Ein manueller (ButtonClick) Aufruf von ShowScrollBar() klappt jedoch.