Текущий архив: 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.013 c
