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

Вниз

TreeView и PopUpMenu   Найти похожие ветки 

 
Voldemar ©   (2002-06-06 17:45) [0]

Доброе время суток!
Как бы сделать, чтобы PopUpMenu появлялось только если кликнули на каком-то пункте TreeView, а если на пустом месте - не выскакивало?


 
MBo ©   (2002-06-06 18:13) [1]

procedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
p:tpoint;
begin
if htOnItem in TreeView1.GetHitTestInfoAt(X, Y) then begin
p.x:=x;
p.y:=y;
p:=treeview1.clienttoscreen(p);
popupmenu1.Popup(p.x,p.y);
end;
end;


 
MBo ©   (2002-06-06 18:27) [2]

лучше в MouseDown и первую строчку так ;)
if (button=mbright) and (htOnItem in TreeView1.GetHitTestInfoAt(X, Y)) then begin


 
Voldemar ©   (2002-06-06 18:43) [3]

>MBo © (06.06.02 18:27)
Благодарю... Только почему-то на правый клик оно не реагирует. Я поставил брекпоинт в начале процедуры - так при левом клике все отрабатывает, а при правом сразу меню выскакивает, а в OnMouseDown вообще не приходит...


 
Song ©   (2002-06-06 19:31) [4]

Надо обнолить свойство компонента Popup


 
Voldemar ©   (2002-06-06 19:42) [5]

>Song © (06.06.02 19:31)
Какое конкретно свойство? И каким образом?


 
Song ©   (2002-06-06 19:48) [6]

Свойство Popup /ещё раз :))


 
Voldemar ©   (2002-06-07 02:04) [7]

>Song © (06.06.02 19:48)
TNX! Нашел... Это свойство называется AutoPopup :))


 
Song ©   (2002-06-07 09:29) [8]

Можно и Popup убрать :)


 
MBo ©   (2002-06-07 09:44) [9]

PopupMenu не задавать и все



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

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

Наверх




Память: 0.48 MB
Время: 0.01 c
3-64899
g maxim
2002-05-29 13:45
2002.06.20
Вопрос по PARADOX


14-65227
MisterBin
2002-05-17 11:01
2002.06.20
Кто смотрел фильм


7-65256
vet
2002-03-21 11:39
2002.06.20
Мастера!!!!!!! Пожалуйста!!!!! (работа с модемом в voice-режиме)


1-65049
Novarm
2002-06-09 18:26
2002.06.20
Как обращаться к буферу после считывания FileRead (SysUtils)


3-64977
VAleksey
2002-05-24 07:25
2002.06.20
ODBC