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




Вниз

Каким образом можно перехватить сообщение от мыши, так как это делается для клавиатуры 


Serguar   (2002-02-11 10:53) [0]

Привет всем! Каким образом можно перехватить сообщение от мыши, так как это делается для клавиатуры: if Key = #13 then Key = #0.
У меня TreeView, нужно что бы PopupMenu вываливалось только тогда, когда клик мыши происходит только по элементу дерева.
Заранее всем благодарен.



Виктор Щербаков   (2002-02-11 11:24) [1]

TTreeView.GetNodeAt



Serguar   (2002-02-11 13:29) [2]

Да вообще то это понятно, не ясно как меню запретить. Вот код:

if (TreeView.Items.Count <> 0) and (Button = mbRight) then begin
TargetNode := TreeView.GetNodeAt(X, Y);
if TargetNode <> nil then
// вываливается PopupMenu
else
// никакого меню не надо



Виктор Щербаков   (2002-02-11 13:51) [3]

if (TreeView.Items.Count <> 0) and (Button = mbRight) then begin
TargetNode := TreeView.GetNodeAt(X, Y);
if TargetNode <> nil then
begin
// вываливается PopupMenu
PopupMenu1.PopupComponent := TreeView;
PopupMenu1.Popup(X, Y);
end else ;
// никакого меню не надо

Но TreeView.PopupMenu должно быть равно nil




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




Наверх





Память: 0.72 MB
Время: 0.021 c
7-90674           Петр                  2001-11-24 13:38  2002.02.28  
Как программно создать логический диск?


1-90625           tovSuhov              2002-02-12 07:52  2002.02.28  
Ограничения на размер битмапа...


3-90479           _Mihail_              2002-02-04 06:13  2002.02.28  
Переход к записи по номеру


6-90631           gunner                2001-12-06 22:42  2002.02.28  
Наболевшый вопрос !


3-90461           Rad                   2002-01-31 19:15  2002.02.28  
Как выяснить размерность поля Numeric?