Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Вниз

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, а хотелось бы.



DieHard   (2002-03-07 10:23) [6]

Смотрим в хелпе:
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. Больше ничего не надо.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.031 c
1-66849           НЕО                   2002-03-05 15:08  2002.03.21  
Типа консольное приложение


3-66780           fidget                2002-02-19 18:56  2002.03.21  
скорость работы MySQL+ODBC+ADO


3-66731           ray_wagner            2002-02-18 05:07  2002.03.21  
Результат запроса?


3-66791           Фадеичев Андрей       2002-02-21 16:30  2002.03.21  
Delphi и сетевые базы данных.


1-66903           Shoo                  2002-03-06 12:08  2002.03.21  
Обновление данных на форме