Прокрутка TreeView, чтобы держать выделение посередине
Материал из DRKB
Прокрутка TreeView, чтобы держать выделение посередине[править | править код]
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;
end;
Source: Взято с http://delphiworld.narod.ru
ID: 00629