Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ 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/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS