Форум: "Основная";
Поиск по всему сайту: 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.73 MB
Время: 0.033 c
4-67051           dimon                 2002-01-23 15:32  2002.03.21  
Календарь DateTimePicker-а в Delphi


14-66991          lel                   2001-12-03 12:18  2002.03.21  
---|Ветка была без названия|---


4-67050           DNT                   2001-12-30 20:43  2002.03.21  
Как определить handle активного окна?


1-66838           alex125               2002-03-06 18:15  2002.03.21  
ошибка при вызове popupmenu


14-67012          Fellomena             2002-02-07 11:51  2002.03.21  
Вчера первый раз напилась - сегодня так хреново с утра (всё ещё хреново).