Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];
Внизвыделение правой кнопкой в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.041 c