ScrollBars от TTreeView

Доступ к ScrollBars от TTreeView

2017-08-11T21:32:22+07:00

Code:

with treeview do begin

perform( WM_HSCROLL, SB_LINERIGHT, 0 );

perform( WM_HSCROLL, SB_ENDSCROLL, 0 );

end;

2017-08-11T21:32:39+07:00

Code:

procedure TMyForm.TreeChange(Sender: TObject; Node: TTreeNode);

var

i : integer;

pp, cp : TTreeNode;

begin

if Assigned(Tree.Selected) then

begin

cp := Tree.Selected;

pp := cp;

for i := 1 to Round(Tree.Height/30) do

if cp <> nil then

begin

pp := cp;

cp := cp.GetPrevVisible;

end;

Tree.TopItem := pp;

end;

2017-08-11T21:32:03+07:00

Code:

uses CommCtrl;

procedure tNoScrollbarsTreeview.createparams(var params: TCreateParams);

begin

inherited;

params.style := params.style or TVS_NOSCROLL;

end;