Текущий архив: 2007.03.11;
Скачать: CL | DM;

Вниз

проблема с TShellTreeView   Найти похожие ветки 

← →
Trible   (2007-02-17 13:43) [0]

Привет всем, использую TShellTreeView для отображения структуры файлов/папок на диске, назначаю для него PopupMenu - контекстное меню, которое должно выскакивать при щелчке правой кнопкой на элементе дерева. Проблема вот в чем: если ПРАВОЙ кнопкой щелкнуть на каком-нибудь элементе, элемент выделится, отобразится контексное меню, но потом выделение сразу перейдет на ранее выбранный элемент (или корневой)! Если же щелкнуть ЛЕВОЙ кнопкой на нужном элементе, потом вызвать контекстное меню правой - все нормально. Как можно сделать, чтобы при ПРАВОМ щелчке выделение не "уходило" с элемента?

---

← →
TRUNK ©   (2007-02-18 19:12) [1]

TShellTreeView.RightClickSelect := true;

---

← →
RASkov   (2007-02-18 19:33) [2]

> [1] TRUNK ©   (18.02.07 19:12)

Оно по умолчанию так включено - непомогает в данном случае [0].

> [0] Trible   (17.02.07 13:43)

Попробуй так:

procedure TForm.ShellTreeView1MouseUp();
begin
 if Button=mbRight then
  ShellTreeView1.GetNodeAt(X,Y).Selected:=True;
end;

---

← →
RASkov   (2007-02-18 19:35) [3]

> [0] Trible   (17.02.07 13:43)

Т.е. лучше так

procedure TForm.ShellTreeView1MouseUp();
var t: TTreeNode;
begin
 if Button=mbRight then begin
  t:=ShellTreeView1.GetNodeAt(X,Y);
  if t<>nil then t.Selected:=True;
 end;
end;

---

← →
Trible   (2007-02-20 16:07) [4]

Спасибо, RASkov, [3] помогло.

---

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

Текущий архив: 2007.03.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.04 c