Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TreeView и PopUpMenu [D6, Win2k]

Voldemar © (2002-06-06 17:45:00)
Доброе время суток!
Как бы сделать, чтобы PopUpMenu появлялось только если кликнули на каком-то пункте TreeView, а если на пустом месте - не выскакивало?

MBo (2002-06-07 09:44:00) [1]
PopupMenu не задавать и все

Song (2002-06-07 09:29:00) [2]
Можно и Popup убрать :)

Voldemar (2002-06-07 02:04:00) [3]
>Song © (06.06.02 19:48)
TNX! Нашел... Это свойство называется AutoPopup :))

Song (2002-06-06 19:48:00) [4]
Свойство Popup /ещё раз :))

Voldemar (2002-06-06 19:42:00) [5]
>Song © (06.06.02 19:31)
Какое конкретно свойство? И каким образом?

Song (2002-06-06 19:31:00) [6]
Надо обнолить свойство компонента Popup

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

MBo (2002-06-06 18:27:00) [8]
лучше в MouseDown и первую строчку так ;)
if (button=mbright) and (htOnItem in TreeView1.GetHitTestInfoAt(X, Y)) then begin

MBo (2002-06-06 18:13:00) [9]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »