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 /ещё раз :))

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

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

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