Работа с Treeview

← →
nnn_nsk (2002-08-22 18:34) [0]

Как организовать переходы по улам в treeview как с помощью левой так и правой кнопку мыши.

← →
andy_prokofiev © (2002-08-22 18:36) [1]

TreeView1.RightClickSelect := true;

← →
nnn_nsk (2002-08-22 18:54) [2]

Не проходит.При отпускании правой кнопки курсор возвращается на прежнее место

← →
andy_prokofiev © (2002-08-22 19:00) [3]

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button = mbRight then
TreeView1.GetNodeAt(X, Y).Selected := true;
end;

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button = mbRight then
begin
if htOnButton in TreeView1.GetHitTestInfoAt(X, Y) then
TreeView1.GetNodeAt(X, Y).Expanded := not TreeView1.GetNodeAt(X, Y).Expanded;
TreeView1.GetNodeAt(X, Y).Selected := true;
end;
end;

← →
nnn_nsk (2002-08-22 19:17) [5]

Первый прошел.Спасибо

Работа с Treeview Найти похожие ветки