Scrollbar in einem TTreeview verhinden

[Shark99]

Wie kann ich die horizontale Scrollbar in einem TTreeview verhindern?

[Shark99]

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

Delphi-Quellcode:

ShowScrollBar(ActiveTree.Handle, SB_HORZ, False);

in Form.OnPaint. Leider auch kein Erfolg. Ein manueller (ButtonClick) Aufruf von ShowScrollBar() klappt jedoch.

[mkinzler]

BTW. Was ist den so schwer daran, Code-Tags im speziellen die Delphi-Tags für Quellcode ( hier Delphi) zu verwenden?

[Shark99]

Habe eine Lösung gefunden:

Delphi-Quellcode:

procedure TTestTreeview.WMNCCalcSize(var msg: TMessage);
var
  style: Integer;
begin
  style := GetWindowLong( handle, GWL_STYLE );
  if (style and WS_VSCROLL) <> 0 then
    SetWindowLong( handle, GWL_STYLE, style and not WS_VSCROLL );
  if (style and WS_HSCROLL) <> 0 then
    SetWindowLong( handle, GWL_STYLE, style and not WS_HSCROLL );
  inherited;
end;