Убрать ScrollBars от TTreeView

Previous  Top  Next

    
 

 

 

Code:

uses CommCtrl;

procedure tNoScrollbarsTreeview.createparams(var params: TCreateParams);

begin

inherited;

params.style := params.style or TVS_NOSCROLL;

end;

 

©Drkb::00637