выделение правой кнопкой в 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;

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