БОЛЬШОЙ FAQ ПО DELPHI



Прокрутка 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ