Форум: "Основная";
Поиск по всему сайту: 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.025 c
3-66769           Markov D.             2002-02-21 19:00  2002.03.21  
Midas / SocketConnection


3-66770           Demon ltd             2002-02-21 23:26  2002.03.21  
Присваивание из базы


3-66737           dmitriyk              2002-02-19 03:29  2002.03.21  
Неужели никто не встречал TDBGrid, у которого можно было бы вставить картинку.


7-67031           sindbad               2001-12-18 16:40  2002.03.21  
Com1 + контроллер


1-66860           Oleg_EM               2002-03-05 16:53  2002.03.21  
Создать Form в Runime ...