Прокрутка TreeView, чтобы держать выделение посередине
Falk0ner, вс, 06/07/2008 - 15:34.
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.Item := pp;
end;
end;
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.Item := pp;
end;
end;
Взято с http://delphiworld.narod.ru
Отправить комментарий