Скачать: CL | DM;

Работа с 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;

---

← →
andy_prokofiev ©   (2002-08-22 19:05) [4]

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c