TPopupMenu+Sender
Здарова, программеры!
Компоненты:
ListView: TListView, TreeView: TTreeView, ContextMenuView: TPopupMenu.
Свойство PopupMenu в ListView и TreeView установлены в ContextMenuView
Что нужно сделать для того чтобы узнать где нажали правую кнопку мыши.
Есть идея насчет определения позиции мыши, но это так через ж...
Может кто знает как это реализовать?
PS: Sender - не работает.
Кусок кода
procedure TNavigatorForm.ContextMenuViewPopup(Sender: TObject);
begin
if Sender=ListView then
begin
...
end
else if Sender=TreeView then
begin
...
end
else exit; //-->Всегда здесь
end;
PPS: Переплевывание PowerDesk'а идет полным ходом ;o)
Hello Томилов,
8 января 2004 г., 16:57:59, you wrote:
Добрый вечер Томилов Александр.
Ты не правильно делаешь проверку условия !!!
Надо писать:
if Sender is TListView then ......
тогда будет все работать.
Я с похожей фишкой уже сталкивался.
Удачи.
С Ув. Feniks mailto: feni***@b*****.ua
ICQ: 107536881
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru