Pеагировать на правый Click мыши.

← →
Dim © (2002-03-06 15:32) [0]

Добрый день коллеги.
Подскажите пожалуйста как повторить действие "Проводника" на нажатие правой кнопки мыши. Ведь при нажатии, вначале выделяется отмеченный пункт, а затем появляется менюшка.
Заранее благодарен за помощь. Дмитрий

← →
lipskiy © (2002-03-06 16:11) [1]

Нужно программно вызвать PopupMenu именно проводника? Или чего? Для какого объекта?

← →
MAxiMum (2002-03-06 16:17) [2]

Смотря какой объект ты будешь обрабатывать.
Например, для ListBox есть метод: function ItemAtPos(Pos: TPoint; Existing: Boolean): Integer; с помощью которого можно определить по координате курсора (обработав событие OmMouseDown или OnMouseUp). Далее призваиваешь ItemIndex результат работы функции и "ручками" вызываешь PopupMenu.
С остальными объектами действуешь по аналогии.
Думаю всё стало ясно!?

← →
Dim © (2002-03-06 16:17) [3]

Нужно, чтоб также работало применительно к TTreeView.
А оно работает так:
выделена строка №1. На строке №3 ( к примеру) нажимаем правую кнопку (и не отпускаем), выделяется стр.№3. Как только отпускаем кнопку курсор возвращается в исходное и вылетает менюшка. А вот как сделать, чтоб курсор остался на месте?

← →
DieHard © (2002-03-06 16:25) [4]

TreeView1.RigthClickSelect:=True;

и потом в OnMouseUp:

var
HT:THitTests;
begin
if Button<>mbRight then exit;
HT:=TreeView1.GetHitTestInfoAt(X,Y);
if htOnItem in HT then TreeView1.Selected:=TreeView1.GetNodeAt(X,Y);
end;

← →
Dim © (2002-03-07 07:48) [5]

>DieHard ©
Большое спасибо за помощь, Ваш пример прекрасно функционитует. Но осталась маленькая проблема выраженная в том что:

Каждому пункту присвоен свой ID. К примеру у п.1 ID=12. При переходе на п.3 (ID=17), оператор считывания ID, возвращает ID=12, а не как ожидается 17. Другими словами не возникает события OnChange у TTreeview, а хотелось бы.

Смотрим в хелпе:
Note: The OnChange event does not occur for nodes selected using the right mouse button when RightClickSelect is True. To respond to changes in the value of the Selected property when RightClickSelect is True, use the OnMouseUp event.

Ок, пишем в OnMouseUp после всего:
TreeView1Change(Sender,TreeView1.Selected);

← →
Набережных С. (2002-03-07 16:08) [7]

procedure ....PopupMenuPopup(...); begin TreeView.Selected:=TreeView.Selected; end;

Разумеется, TreeView.RigthClickSelect = true. Больше ничего не надо.

Pеагировать на правый Click мыши. Найти похожие ветки