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

Вниз

выделение правой кнопкой в treeview   Найти похожие ветки 

← →
Сергей Петров   (2004-10-14 04:59) [0]

Есть treeview. Хочу сделать выпадающее меню, появляющееся при клике правой кнопкой мыши, в котором будет пункт "удалить".

Проблема в том, что при клике правой кнопкой treeview.selected не меняется.

treeview.rightclickselect := true не помогает.

видимо, это связано с потерей treeview фокуса.

Как победить?

---

← →
Babay ©   (2004-10-14 05:42) [1]

Попробуйте сделать так

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
 var Handled: Boolean);
var
  tempNode: TTreeNode;
begin
tempNode := (Sender as TTreeView).GetNodeAt(MousePos.X, MousePos.Y);
  if tempNode <> nil then
    TTreeView(Sender).Selected := tempNode;
end;

---

← →
BillyJeans   (2004-10-14 08:59) [2]

procedure TMF.TreeMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var tmp: TTreeNode;
begin
 tmp := Tree.GetNodeAt(X,Y);
 if tmp <> nil then tmp.Selected:= true;
 TreeClick(Sender);
end;

---

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

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

Наверх

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