Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.21;
Скачать: CL | DM;

Вниз

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. Больше ничего не надо.



Страницы: 1 вся ветка

Текущий архив: 2002.03.21;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
14-66967
McSimm
2002-02-05 11:51
2002.03.21
Еще задачка. Почему нельзя казнить.


1-66862
Kettle of delphi
2002-03-04 17:05
2002.03.21
Подскажите пожалуйста! Код TForm2.Create(nil) вовсе не помещает создаваемую форму на панель задач! (он ее помещает на РАБОЧИЙ СТОЛ)


14-66963
Nest
2002-02-06 16:52
2002.03.21
Помогите спасти товарисча от свирепого препода: нужен исходник на Delphi игры


1-66876
ДАААА
2002-03-03 17:02
2002.03.21
Ну очень рочно


1-66878
Vacheslav
2002-03-03 20:11
2002.03.21
Размеры компонентов