Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c