Как убрать из TreeView горизонтальный скроллбар
Как убрать из TreeView горизонтальный скроллбар
Как убрать из TreeView горизонтальный скроллбар Мой метод (подробненько): var fmain: Tfmain; ......... TreeView: TNoHScrollTreeview; implementation {$R *.dfm} procedure TNoHScrollTreeview.WMNCCalcSize(var msg: TMessage); var style: integer; begin style:=getWindowLong(handle, GWL_STYLE); if (style and WS_HSCROLL) <> 0 then SetWindowLong(handle, GWL_STYLE, style and not WS_HSCROLL); inherited; end; procedure Tfmain.FormCreate(Sender: TObject); begin TreeView:=TNoHScrollTreeview.Create(Self); TreeView.Parent:=fmain; with TreeView do begin Left:=16; Top:=62; Width:=257; Height:=504; ....... OnEnter:=TreeViewEnter; Visible:=True; end; TreeView.SendToBack; .... end;
